Changeset 26674

Timestamp:

12/14/08 20:37:32 (4 years ago)

Author:

drry

Message:

• fixed regexes.
  
• et cetera.
  

Files:

• lang/perl/misc/imageDownloader.pl (modified) (3 diffs)

lang/perl/misc/imageDownloader.pl

@@ -8 +8 @@
 my $ua  = LWP::UserAgent->new;
 my $res = $ua->get($url);
-my $dir = File::Spec->catdir($ENV{DOWNLOAD_DIR} || File::Spec->curdir, 
+my $dir = File::Spec->catdir($ENV{DOWNLOAD_DIR} || File::Spec->curdir,
     sprintf('%s-%s', $url->host, POSIX::strftime('%Y%m%d-%H%M%S', localtime)));
 if (! -d $dir) {
@@ -17 +17 @@
     my ($tag, %links) = @_;
     my $link = $links{href};
-    if ($link =~ /([^\/]+\.jpg$)/) {
+    if ($link =~ m{([^/]+\.jpe?g$)}i) {
         my $file = File::Spec->catfile($dir, $1);
         print "$link -> $file\n";
@@ -31 +31 @@
 use File::Basename;
 use Encode;
-use Encode::Guess qw/shift-jis euc-jp 7bit-jis/;
+use Encode::Guess qw/shift_jis euc-jp 7bit-jis/;
 
 my $content = get(shift);
-$content =~ s/[\n\r]//g;
-$content =~ m/<title[^>]*>([^<]+?)<\/title>/i;
+$content =~ s/[\n\r]+//g;
+$content =~ m{<title(?:\s[^>]*)?>([^<]+)</title\s*>}i;
 my $title = $1;
 my $title_utf8 = Encode::decode('Guess', $title);
-$title_utf8 =~ s/^\s+//;
-$title_utf8 =~ s/\s+$//;
-mkdir "./".$title_utf8, 0777;
-my @l = $content =~ m{<a.*?href=["]?(http://[^">\s]+\.jpg)[">\s]}gi;
-map{
-  print $_."\n";
-  print basename($_)."\n";
-  my $filename = "./".$title_utf8."/".basename($_);
-  mirror($_, $filename);
+$title_utf8 =~ s/^\s+|\s+$//g;
+mkdir "./$title_utf8", 0777;
+my @l = $content =~ m{<a(?:\s[^>]*?)?\shref\s*=\s*["']?(https?://[^"'<>\s]+\.jpe?g)["'>\s]}gi;
+map {
+    print "$_\n";
+    print basename($_)."\n";
+    my $filename = "./$title_utf8/".basename($_);
+    mirror($_, $filename);
 } @l;