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";
>}
>