use strict;
use warnings;
my $html =<<'__BOB__';
Steve,
The picture was one that you pointed me at in the paper a couple of weeks ago. I don't have any pictures of mine yet.
Tom
Tom wrote:
>OK, I finally figured out that you can post online at the website or just
>send an e-mail.
Oh and the pic... it looks like it was shot during an
earthquake. :-)
Steve
To unsubscribe from this group, send an email to:
listmod@google.com
__BOB__
use HTML::TokeParser;
{
my $stream = HTML::TokeParser->new( \$html );
$stream->{textify} = { br => '' };
my $text = $stream->get_text ("/table");
warn $text;
}
{
my $stream = HTML::TokeParser->new( \$html );
$stream->{textify} = {
br => sub {
my $t = \@_;
if( $t->[0] eq 'S' and
$t->[1] eq 'br') {
return '
';
}
return;
}
};
my $text = $stream->get_text ("/table");
warn $text;
}
__END__
Steve,
The picture was one that you pointed me at in the paper a couple of weeks ago. I don't have any pictures of mine yet.
Tom
-----Message-----[BR]From: eat@joes.com [mailto:eat@joes.com][BR]Sent: Monday, June 10, 2005 3:50 PM[BR]To: google.com[BR]Subject: Re: [Test] another test[BR][BR] Tom wrote:[BR]>OK, I finally figured out that you can post online at the website or just[BR]>send an e-mail.[BR][BR]Oh and the pic... it looks like it was shot during an[BR]earthquake. :-)[BR][BR]Steve[BR]To unsubscribe from this group, send an email to:[BR]listmod@google.com[BR][BR][BR]
[BR][BR]
at html.tokeparser.textify.pl line 27.
Steve,
The picture was one that you pointed me at in the paper a couple of weeks ago. I don't have any pictures of mine yet.
Tom
-----Message-----
From: eat@joes.com [mailto:eat@joes.com]
Sent: Monday, June 10, 2005 3:50 PM
To: google.com
Subject: Re: [Test] another test
Tom wrote:
>OK, I finally figured out that you can post online at the website or just
>send an e-mail.
Oh and the pic... it looks like it was shot during an
earthquake. :-)
Steve
To unsubscribe from this group, send an email to:
listmod@google.com
at html.tokeparser.textify.pl line 46.