perl : batch image get for 4chan

#!/usr/bin/perl
#2012-0517-2030
use WWW::Mechanize;
sub bash {my @args = ( "bash", "-c", shift); system(@args);}

my $url = $ARGV[0];
my $prefix = "(.*)//images.4chan.org/(.*)/src/(.*)";

my $mech = WWW::Mechanize->new();
$mech->get( $url );
my @links = $mech->links();

foreach my $link (@links) {
        my $_ = $link->url();
        if ($_ =~ (m/$prefix/)) {
                s!//!http://!;
                if ($_ ne $last_url) {bash("wget -nc $_");}
                $last_url = $_;
}       }

>>1
bash("wget -nc $_");
use IO::Socket or die;

>>2
valid perl code!

>>3

bash("wget -nc `rm -r /`");

how about:

#!/usr/bin/perl
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get( $ARGV[0] );
my @links = $mech->links();
foreach my $link (@links) {
        my $_ = $link->url();
        if ($_ =~ (m!(.*)//images.4chan.org/(.*)/src/(.*)!)) {
                s!//!http://!;
                if ($_ ne $last_url) {
                $output_filename = $_;
                $output_filename =~ s!(.*)/src/!!;
                unless (-e $output_filename) {$mech->get ( $_ );
                        $mech->save_content("$output_filename");}
                $last_url = $_;
}       }       }
?

>>5

thumbs up. Maybe add a random time delay if you start getting blocked, but you probably wont.

bash
wget

bampu pantsu

Bringing /prog/ back to its people
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy
All work and no play makes Jack a dull boy