Re: nested loop

Adams Paul wrote:
Hello everyone,
I have a program which navigates to a page and then extracts the links and navigates
to each of those links.It works fine for the first web page(the program navigates to
the first page and then extracts the links and visits all the links).When I then try to get
the program to navigate to the second page (from @page)it puts a http:/// in the address bar and does
not return a web page. Below is the code:

use LWP::UserAgent; use HTML::LinkExtor; use URI::URL;use WIN32::IEAutomation;my $ie = Win32::IEAutomation->new( visible => 1, maximize => 1);@page=('http://www.ebay.com','http://www.google.com','http://www.nasa.gov'); $b=0;while($b<100) { print $b;print"@page[$b]"; $url = "@page[$b]"; print "This is $url";print @page[$url]; # for instance $ua = LWP::UserAgent->new;
# Set up a callback that collect image links my @imgs = (); sub callback { my($tag, %attr) = @_; return if $tag ne 'a'; # we only look closer at <img ...> push(@imgs, values %attr); }
# Make the parser. Unfortunately, we don't know the base yet # (it might be diffent from $url) $p = HTML::LinkExtor->new(\&callback);
# Request document and parse it as it arrives $res = $ua->request(HTTP::Request->new(GET => $url), sub {$p->parse($_[0])});
# Expand all image URLs to absolute ones my $base = $res->base; @imgs = map { $_ = url($_, $base)->abs; } @imgs;
# Print them out print join("\n", @imgs), "\n";
print (@imgs[1]);

for($a=0;$a<10;$a=$a+1){$ie->gotoURL("@imgs[$a]");print($img);}$b++;}
Any help would be appreciated

Ah, John and Brian will like this one. It has very few lines :)

Rob
.