Re: [MacPerl] Easiest way to extract the Body from HTML

[w e b s l a v e <PPRODOEHL@qgraph.com>]

This works for me:

#!perl

use LWP::Simple;

$url = "http://www.quadcreative.com/companymf.html";
$doc = get($url);
$doc =~ s/\012/\015/gi;
$doc =~ s/.+(<body.+>)(.+)(<\/body>).+/$1$2$3/gsi;
print "$doc\n";

# END


Pete


===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org