Re^10: Can't call method "proxy" on an undefined value at

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);
[download]

These two lines are causing the errors:

    print "Current proxy:$proxies\n";

          # Use this UA/Proxy to fetch something....
          $ua->proxy(['http'], 'http://'.$proxies);
[download]

Comment on Re^10: Can't call method "proxy" on an undefined value at Select or Download Code

Replies are listed 'Best First'.
Re^11: Can't call method "proxy" on an undefined value at by choroba (Cardinal) on Feb 09, 2016 at 17:18 UTC
`@proxies`, `$proxy`, and `$proxies` are three different variables. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^11: Can't call method "proxy" on an undefined value at by poj (Abbot) on Feb 09, 2016 at 17:16 UTC
`@proxies` is the array. Use `print "Current proxy:$proxy\n"; # Use this UA/Proxy to fetch something.... $ua->proxy(['http'], 'http://'.$proxy);` [download] poj	[reply] [d/l] [select]
Re^11: Can't call method "proxy" on an undefined value at by Anonymous Monk on Feb 09, 2016 at 17:17 UTC
OK, got it! # 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:$proxy)\n"; # Use this UA/Proxy to fetch something.... $ua->proxy(['http'], 'http://'.$proxy); 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); [download]	[reply] [d/l]