HTML -> ASCII

[Jaroslav Klaus]

On Thu, Oct 07, 1999 at 01:12:44PM +0200, Tomas TPS Ulej wrote:
> Potrebujem prevod HTML suboru do tvaru bez HTML prikazov, existuje nieco
> podobneho?

a) viz.priloha
b) lynx -dump

Zalezi co presne potrebujete.

Jarda Klaus

-------------- next part --------------
#!/usr/local/bin/perl

# converts html files into ascii by just stripping anything between
#  < and >
# written 4/21/96 by Michael Smith for WebGlimpse

$carry=0;

while(<STDIN>){
	$line = $_;
	
	if($carry==1){
		# remove all until the first >
		unless($line=~s/(.*?)\?>//) {
			$cutout.= " ".$line;
			next;
		}
		# if we didn't do next, it succeeded -- reset carry
		$cutout .= " ".$1;
		$cutout="";
		$carry=0;
	}

	while($line=~s/<\?(.*?)\?>//g){
		$cutout = $1;
		$cutout = "";
	};
	if($line=~s/<\?(.*)$//){
		$cutout=$1;
		$carry=1;
	}
	print $line;
}