X-Git-Url: http://dolda2000.com/gitweb/?a=blobdiff_plain;f=ANN.pm;h=48bd9c494c6539071e19f4bb1aab2dc14ece7c21;hb=dc508f57af7005ba808ef5ab560b33c4d886ae6e;hp=f41147a8c988549abc09ea34ee759b9d1f757726;hpb=edcecb65d18376f5401aefbcbc2c563cf10e74f0;p=utils.git diff --git a/ANN.pm b/ANN.pm index f41147a..48bd9c4 100644 --- a/ANN.pm +++ b/ANN.pm @@ -49,7 +49,7 @@ sub getlist ($name) = @_; $name = ($name =~ /^(the\s+)?(.*)$/i)[1]; - $il = uc(($name =~ /^(.)/)[0]); + $il = uc(($name =~ /^\W*(.)/)[0]); $il = "9" if (!($il =~ /[A-Z]/)); if(!($html = _get "http://www.animenewsnetwork.com/encyclopedia/anime.php?list=$il")) { return undef; @@ -74,7 +74,7 @@ sub getid ($name) = @_; $name = ($name =~ /^(the\s+)?(.*)$/i)[1]; - $il = uc(($name =~ /^(.)/)[0]); + $il = uc(($name =~ /^\W*(.)/)[0]); $il = "9" if (!($il =~ /[A-Z]/)); if(!($html = _get "http://www.animenewsnetwork.com/encyclopedia/anime.php?list=$il")) { return undef; @@ -107,10 +107,10 @@ sub getthemes if($html =~ /$kind theme:<\/strong>\s*\n/igc) { my(@parts, $ct, $buf); - while($html =~ /\G\s*\