[SOLVED] perl mechanize question

amboxer21 · 01-05-2014, 12:36 AM

i am trying to download files from the internet like so

Code:

open FILE, "<Album_ID_list", or die "Can't open file: $!";

my @lines = <FILE>;

my $mech = WWW::Mechanize->new( );

foreach my $i ( @lines ) {
$mech->get( "https://graph.facebook.com/$i/photos?access_token=$token_string", ':content_file' => "Photostream_Album_$i" );
}

but receive this error

Code:

Error GETing https://graph.facebook.com/678987900...syEyt4IZCJoZD: Not Found at test4.pl line 44.

If i am not mistaken, that %0A before /photos? is a new line char. What am I doing wrong??
.

rigor · 01-05-2014, 05:58 PM

I'd probably have to get into more detail than you've provided to be sure, but my first instinct is that maybe chomp should be used on the input lines from the file, before using them as part of the URL.

amboxer21 · 01-06-2014, 03:02 PM

Quote:

Originally Posted by rigor

I'd probably have to get into more detail than you've provided to be sure, but my first instinct is that maybe chomp should be used on the input lines from the file, before using them as part of the URL.

Sorry That I did not provide enough information. I have solved the problem. You were correct with the missing chomp. I also used 3 arg open lexical file handles instead of the old bareword style.

Code:

open my $in_fh, '<', "Album_ID_list"
   or die "Can't open file: $!";

my @lines = <$in_fh>;

foreach my $i ( @lines ) {
   chomp( $i );
   system( "wget https://graph.facebook.com/$i/photos?access_token=$token_string -O Photostream_Album_$i" );
 }

close($in_fh);

Thanks for your response and time I appreciate it!