Difference between revisions of "Export-images.pl"
From Organic Design wiki
m |
|||
| Line 1: | Line 1: | ||
| − | {{lowercase}}< | + | {{lowercase}} |
| + | <perl> | ||
#!/usr/bin/perl | #!/usr/bin/perl | ||
use HTTP::Request; | use HTTP::Request; | ||
| Line 27: | Line 28: | ||
close FH; | close FH; | ||
} | } | ||
| − | </ | + | </perl> |
| + | [[Category:PERL]] | ||
Revision as of 13:09, 8 December 2011
<perl>
- !/usr/bin/perl
use HTTP::Request; use LWP::UserAgent;
$client = LWP::UserAgent->new( cookie_jar => {}, agent => 'Mozilla/5.0', from => 'export-images.pl@organicdesign.co.nz', timeout => 10, );
$wiki = $ARGV[0];
$dir = $wiki =~ /(https?:\/\/(.+?))\// ? $2 : die "Please supply long form wiki URL"; $base = $1; $content = $client->get("$wiki?title=Special:Imagelist&limit=500")->content; @files = $content =~ /href\s*=\s*['"](\/[^"']+?\/.\/..\/[^'"]+?)["']/g;
mkdir $dir; for $url (@files) { $file = $url =~ /.+\/(.+?)$/ ? $1 : die "Bad name ($url)"; print "$file\n"; open FH, '>', "$dir/$file"; binmode FH; print FH $client->get("$base$url")->content; close FH; } </perl>
