Re: [PERL] Html stripping

[Poul-Erik Andreasen <sslug@sslug>]

On Wed, 29 Jan 2003 06:33:58 +0100
Poul-Erik Andreasen <sslug@sslug> wrote:

> Hej 
> 
> Jeg bruger følgende til strippe en html tekst:
> 
> 
> #!/usr/bin/perl -w
> use strict;
> undef $/;
> open(INPUT,$ARGV[0]) or die;
> open(OUTPUT,"+> $ARGV[1]") or die;
> my $a=<INPUT>; 
> close (INPUT);
> 
> $a=~ s/<.*?>//gs; 
> print OUTPUT $a;
> close OUTPUT;
> exit;
> Af en eller anden grund bliver der efter ladt en del " <cr>"
> Jeg kan ikke rigtig gennemskue hvorfor. 

Jeg har fundet ud af det, der er bare fordi at det er en dos fil
jeg stripper fra og \r bliver udskrevet  som " <cr>" i min editor.



-- 
Poul-Erik Andreasen