Changeset 13656 for lang/perl/Acme-Actors-JA

Timestamp:

06/11/08 20:22:28 (5 years ago)

Author:

daisuke

Message:

scrape gravure idol names

Files:

• lang/perl/Acme-Actors-JA/trunk/lib/Acme/Actors/JA/Scraper.pm (modified) (1 diff)

lang/perl/Acme-Actors-JA/trunk/lib/Acme/Actors/JA/Scraper.pm

@@ -120 +120 @@
 }
 
+sub scrape_gravure_idols_jp
+{
+    my $uri = URI->new('http://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%A9%E3%83%93%E3%82%A2%E3%82%A2%E3%82%A4%E3%83%89%E3%83%AB%E4%B8%80%E8%A6%A7');
+    
+    my $scraper = scraper {
+        process q|//div[@id = 'bodyContent']//ul/li/a|,
+            'idols[]' => {
+                'name' => 'TEXT',
+                'url'  => '@href'
+            }
+        ;
+    };
+    $scraper->scrape($uri)->{idols};
+}
+
 1;