document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. #!/usr/bin/perl
  2. use strict;use diagnostics;use warnings;
  3. use Getopt::Long;
  4. use HTML::TreeBuilder;
  5. use LWP::Simple;
  6. use vars qw/$url/;
  7. use File::Temp;
  8.  
  9. GetOptions(\'--url=s\' => \\$url) or die("Error in command line arguments\\n");
  10.  
  11. die "invalid url" unless $url =~ m@https://www.flickr.com/photos/[a-z]+/[0-9]+/sizes/@;
  12.  
  13. my $h = HTML::TreeBuilder->new_from_url($url);
  14. my $image_uri = $h -> look_down(\'_tag\' => \'link\', \'rel\' => \'image_src\', sub {
  15.     return $_[0]->attr(\'href\');
  16.                                 });
  17. print $image_uri->{\'href\'};
  18. print "\\n";
');