Hello!
I have such problem, I need to make multistring replacement... How can
I do this?
I tried to make perl script which acquires file form STDIN and prints
result into STDOUT
cat file.html | ./myscript
I work with html-files and I want to convert them into necessory format.
I want to delete all stuff before <BODY> and after </BODY>... Also I
want to delete <SPAN> tags that can be splitted to few strings...
$joined = join("", <>);
$joined =~ s/.*<BODY>//ig;
$joined =~ s/<SPAN[^<>]*>//ig;
$joined =~ s/<\/SPAN>//ig;
$joined =~ s/<FONT[^<>]*>//ig;
$joined =~ s/<\/FONT>//ig;
$joined =~ s/<BODY[^<>]*>//ig;
$joined =~ s/<\/BODY.*>//ig;
$joined =~ s/STYLE="[^"]*"//ig;
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
