Changeset 34879 for lang/perl/Acme-Idols-JapaneseGravure

Timestamp:

08/16/09 19:59:15 (4 years ago)

Author:

yusukebe

Message:

modified interface!

Location:

lang/perl/Acme-Idols-JapaneseGravure/trunk

Files:

• lib/Acme/Idols/JapaneseGravure (added)
• lib/Acme/Idols/JapaneseGravure.pm (modified) (3 diffs)
• lib/Acme/Idols/JapaneseGravure/Idol.pm (added)
• t/02_idol.t (added)

lang/perl/Acme-Idols-JapaneseGravure/trunk/lib/Acme/Idols/JapaneseGravure.pm

@@ -4 +4 @@
 use URI;
 use Web::Scraper;
+use Acme::Idols::JapaneseGravure::Idol;
 
 our $VERSION = '0.01';
@@ -20 +21 @@
     warn "wait...\n";
     my $urls = $self->_scrape_url_list();
-    my @all_names;
+    my @all_idols;
     for my $url ( @$urls ) {
-        my $names = $self->_scrape_name( $url );
-        push( @all_names, @$names );
+        my $idols = $self->_scrape_idol( $url );
+        push( @all_idols, @$idols );
     }
-    return \@all_names;
+    return \@all_idols;
 }
 
@@ -38 +39 @@
 }
 
-sub _scrape_name {
+sub _scrape_idol {
     my ( $self, $url ) = @_;
     my $scraper = scraper {
-        process "div#mw-pages li a", 'names[]' => 'TEXT';
+        process "div#mw-pages li a", 'links[]' => {
+            name => ['@title',sub { $_ =~ s/(?:\(.*\))$//g; $_=~ s/\s//; } ],
+            url  => '@href',
+        };
     };
-    my $uri = URI->new( $url );
-    my $res = $scraper->scrape( $uri );
-    my @names;
-    for my $name ( @{ $res->{names} } ){
-        $name =~ s/(?:\(.*\))$//g;
-        push( @names, $name );
+    my $uri = URI->new($url);
+    my $res = $scraper->scrape($uri);
+    my @idols;
+    for my $link ( @{ $res->{links} } ) {
+        push(
+            @idols,
+            Acme::Idols::JapaneseGravure::Idol->new(
+                url  => $link->{url},
+                name => $link->{name}
+            )
+        );
     }
-    return \@names;
+    return \@idols;
 }