HTML <---> Text questions

Vassilis Terzopoulos bacardi at eexi.gr
Wed Jul 23 10:52:38 EEST 1997


Se kapoies periptwseis, to parakatw einai poly boliko :-)
Basilhs

---
#!/usr/local/bin/perl
# html to ascii: strip anything between < and >
$carry=0;
while(<STDIN>){
	$line = $_;
	if($carry==1){
		# remove all until the first >
		next if($line!~s/[^>]*>//);
		# if we didn't do next, it succeeded -- reset carry
		$carry=0;
	}
	while($line=~s/<[^>]*>//g){};
	if($line=~s/<.*$//){
		$carry=1;
	}
	print $line;
}

--
 Vassilis Terzopoulos: I am not young enough to know everything.
 http://w4u.eexi.gr/~bacardi - webmaster@ http://www.techlink.gr
 (personal mail addresses: bt at ath.forthnet.gr - bacardi at eexi.gr)
                    Any and all opinions are mine and only mine.
 ÷÷÷  No solicitations - ask for my Notification and Offer.  ÷÷÷

--
====================================================================
Gia na mathete pos na xrisimopoiite ton majordomo, stilte e-mail
sto "majordomo at argos.hol.gr" me 1 grammi sto keimeno: help
Ta archives tis listas einai sto http://www.argos.hol.gr/lists
Gia opoiodipote problima stilte  e-mail ston owner-linux-greek-users
====================================================================



More information about the Linux-greek-users mailing list