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

[Anonymous Monk]

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);

[choroba]

@proxies, $proxy, and $proxies are three different variables.

[poj]

@proxies is the array. Use

   print "Current proxy:$proxy\n";
   # Use this UA/Proxy to fetch something....
   $ua->proxy(['http'], 'http://'.$proxy);

poj

[Anonymous Monk]

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);