Great job, Rob! Thanks for the good code! Quite a timesaver. Scott
Scott E. Robinson
SWAT Team
Data Mgt Practices & Operations (DMPO)
RR-690 -- 281-654-5169
EMB-2813N -- 713-656-3629
Safety is never an accident
----- Forwarded by Scott E Robinson/U-Houston/ExxonMobil on 02/19/04 09:29
AM -----
"K Gupta A"
<[EMAIL PROTECTED] To: [EMAIL PROTECTED]
om> cc:
Subject: Re: Re: RE: capture a
website and process its data
02/18/04 07:59 PM
Please respond to "K
Gupta A"
"K Gupta A"
<[EMAIL PROTECTED] To: [EMAIL PROTECTED]
om> cc:
Subject: Re: Re: RE: capture a website
and process its data
02/18/04 07:59 PM
Please respond to "K
Gupta A"
wow Rob, thaz a masterpiece code!!
3 cheers for you!!
K.
>Hi.
>
>I am posting this code without comment, as explaining it all would take a
>very long time and all of the documentation is available via perldoc.
>
>HTH,
>
>Rob
>
>
>use strict;
>use warnings;
>
>use LWP::Simple;
>use HTML::TokeParser;
>
>my $url = 'http://www.biocarta.com/pathfiles/h_il10Pathway.asp';
>
>my $content = get($url);
>my $parse = new HTML::TokeParser \$content;
>
>while (my $info = $parse->get_tag('map')) {
> my ($tag, $attr) = @$info;
> last if $attr->{name} eq 'm_h_il10Pathway';
>}
>
>while (my $info = $parse->get_tag('area', '/map')) {
> my ($tag, $attr) = @$info;
> last if $tag eq '/map';
> my ($href) = $attr->{href} =~ /'(.+?)'/;
> print $href, "\n";
>}
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
