Skip to content

Instantly share code, notes, and snippets.

@adipasquale

adipasquale/facebook_download_photos.pl

Created March 27, 2012 16:14
Show Gist options
  • Save adipasquale/2217595 to your computer and use it in GitHub Desktop.
Save adipasquale/2217595 to your computer and use it in GitHub Desktop.
Download ZIP
perl script to download photos from facebook. input file should be the source copied from your browser. then write the output of the script in a file and execute it
Raw
facebook_download_photos.pl
#!/usr/bin/perl;
@ARGV = ("temp_fb_profile.html");
while (<>) {
while (/(http[a-z\-\.0-9:\/]*\w*)_a.jpg/g) {
print "wget $1_n.jpg\n";
}
}
@Villelmo
Copy link

Execute the program but the resulted expected is null.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment