diff options
author | Florian Pritz <bluewind@server-speed.net> | 2011-05-15 14:02:38 +0200 |
---|---|---|
committer | Florian Pritz <bluewind@server-speed.net> | 2011-05-15 14:02:38 +0200 |
commit | 2a85f5f9ca4fe5b758b489f02f9ec0d0aff55587 (patch) | |
tree | 34274a0e70db49a0a51cb37d08e19d969ee8831c /dropbox_gallery_dl.pl | |
parent | fcb85132b3bb40f054cb775cbffe0e412f064ce6 (diff) | |
download | bin-2a85f5f9ca4fe5b758b489f02f9ec0d0aff55587.tar.gz bin-2a85f5f9ca4fe5b758b489f02f9ec0d0aff55587.tar.xz |
add new scripts
Signed-off-by: Florian Pritz <bluewind@server-speed.net>
Diffstat (limited to 'dropbox_gallery_dl.pl')
-rwxr-xr-x | dropbox_gallery_dl.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/dropbox_gallery_dl.pl b/dropbox_gallery_dl.pl new file mode 100755 index 0000000..8b22af8 --- /dev/null +++ b/dropbox_gallery_dl.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl +use warnings; +use strict; +use Data::Dumper; +use WWW::Mechanize; +use LWP::Simple; + +my $url = $ARGV[0]; + +my $mech = WWW::Mechanize->new(); + +$mech->get($url); + +my $content = $mech->content(); +while ($content =~ m/^\s*'filename': '(.*)',$/mg) { + my $img_name = $1; + $content =~ m/^\s*'original': "(.*)"$/mg; + my $img_url = $1; + getstore($img_url, $img_name); +} |