Changeset 4378

Timestamp:

01/10/08 23:34:32 (10 months ago)

Author:

yto

Message:

lang/perl/misc/wikipejago/ext-wpj-person.pl: ALL person name.

Location:

lang/perl/misc/wikipejago

Files:

• ChangeLog (modified) (1 diff)
• ext-wpj-person.pl (modified) (2 diffs)

lang/perl/misc/wikipejago/ChangeLog

@@ +1 @@
+2008-01-10  yto  <yto at nais dot to>
+
+        * ext-wpj-person.pl: Japanese person name => All person name.
+
 2007-12-30  yto  <yto at nais dot to>
 

lang/perl/misc/wikipejago/ext-wpj-person.pl

@@ -1 +1 @@
 #!/usr/bin/perl
-# ウィキペディア (http://ja.wikipedia.org/) から日本人の人名っぽいのを取り出す
+# ウィキペディア (http://ja.wikipedia.org/) から人名っぽいのを取り出す
 # [Step.1]
 # wget http://download.wikimedia.org/jawiki/latest/jawiki-latest-pages-articles.xml.bz2
@@ -21 +21 @@
         my $title = $1;
         next if $title =~ m{^([^<]+:|\d{4})};
-        if ($page =~ m{(Category:\d+年生|\| Born)}
-            and $page =~ m{Category:日本}
-            and $page !~ m{Category:日本生産}
+        if ($page =~ m{(Category:\d+年生)}
+            and $page !~ m{Category:[^\|]*(犬|馬)[\|\]]}
             ) {
             $title =~ s/\s+\(.+?\)\s*$//;