Changeset 18665 for lang/perl/plagger

Timestamp:

09/02/08 22:10:25 (4 months ago)

Author:

sweetpotato

Message:

- shop_melonbooks_co_jp_tsuhan.pl: added
- www_taiyosha_co_jp_comic.pl: trivial change
- www_toranoana_jp_mailorder.pl: added

Location:

lang/perl/plagger/assets/plugins/CustomFeed-Script

Files:

• shop_melonbooks_co_jp_tsuhan.pl (added)
• www_taiyosha_co_jp_comic.pl (modified) (3 diffs)
• www_toranoana_jp_mailorder.pl (added)

lang/perl/plagger/assets/plugins/CustomFeed-Script/www_taiyosha_co_jp_comic.pl

@@ -16 +16 @@
     process '//table[./tr/th]/tr[not(./th)]', 'entry[]' => scraper {
         process '/tr/td[1]',
-                part => ['text', sub { m!/(.*?)$! or return; $1 } ],
-                date => ['text', sub { m!/(.*?)$! or return; $1 }, \&mk_date];
+            part => ['text', sub { m!/(.*?)$! or return; $1 } ],
+            date => ['text', sub { m!/(.*?)$! or return; $1 }, \&mk_date];
         process '/tr/td[2]',
-                publisher => 'text',
-                'tags[]'  => 'text';
+            publisher => 'text',
+            'tags[]'  => 'text';
         process '/tr/td[3]', title  => 'text';
         process '/tr/td[4]', author => 'text';
@@ -51 +51 @@
 my $dt_title = $dt->strftime('%Y/%m分');
 binmode STDOUT, ":utf8";
-print YAML::Dump +{
+print Dump +{
     title => "太洋社 コミック発売予定一覧 $dt_title",
     link  => "http://www.taiyosha.co.jp/comic/comic${dt_path}_date1.html",
@@ -58 +58 @@
 
 sub mk_date {
-    my $part = shift;
-    return unless defined $part;
+    return unless defined $_;
 
     my $date = $dt->clone;
-    return unless eval { $date->set(day => part_to_day($part)) };
+    return unless eval { $date->set(day => part_to_day($_)) };
     $date->ymd;
 }
 
 sub part_to_day {
-        my $part = shift;
+    my $part = shift;
     return unless defined $part;