Changeset 12287

Timestamp:

05/24/08 23:47:18 (5 years ago)

Author:

tokuhirom

Message:

fixed xpath bug.

Files:

• lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/ThirdForce/CIDR.pm (modified) (1 diff)

lang/perl/WWW-MobileCarrierJP/trunk/lib/WWW/MobileCarrierJP/ThirdForce/CIDR.pm

@@ -9 +9 @@
 sub scrape {
     scraper {
-        process '//td[@bgcolor="#eeeeee"]/font[@size="2" and @class="j10"]', 'cidr[]', ['TEXT', sub {
-                        m{^([0-9.]+)(/[0-9]+)};
-                        +{ ip => $1, subnetmask => $2 };
-                    }];
+        process q{//div[@class='contents']/table/tr[7]/td/table/tr/td/table/tr},
+          'cidr[]', [
+            'TEXT',
+            sub {
+                s/\s//g
+            },
+            sub {
+                m{^([0-9.]+)(/[0-9]+)};
+                +{ ip => $1, subnetmask => $2 };
+              }
+          ];
     }->scrape(URI->new($url))->{cidr};
 }