Html stripping

[Poul-Erik Andreasen <sslug@sslug>]

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. 
-- 
Poul-Erik Andreasen