Thanks. I understand the concept and see that the shift would and almost have it working. I'm getting an explicit package name error on $proxies. I'm using my $proxies earlier in the script so I"m not sure why I'm getting the error. I'll keep trying. Here's what I have.
# create useragent my $ua = LWP::UserAgent->new; $ua->agent('Mozilla/8.0'); # get pages for each city, keyword, proxy for my $city (@cities) { my $keyword = shift @keywords; my $proxy = shift @proxies; print "City : [$city]\nKeyword: [$keyword]\n"; print "Current proxy:$proxies\n"; # Use this UA/Proxy to fetch something.... $ua->proxy(['http'], 'http://'.$proxies); my $url = join '',$link1 . $city ."+". $keyword, $link2 . $city ."+". $keyword, $link3; my $response = $ua->get($url); print "getting $url\n"; if ($response->is_success) { my $filename = "Bing/${city}_${keyword}.html"; print "Creating $filename\n"; open my $fh, ">", $filename or die("Could not open $filename. $!"); print $fh $response->decoded_content; # or whatever close $fh; } else { die $response->status_line; } print "\n"; } close($fh);
These two lines are causing the errors:
print "Current proxy:$proxies\n"; # Use this UA/Proxy to fetch something.... $ua->proxy(['http'], 'http://'.$proxies);
In reply to Re^10: Can't call method "proxy" on an undefined value at
by Anonymous Monk
in thread Can't call method "proxy" on an undefined value at
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |