Wikipediaã‹ã‚‰å£°å„ªå一覧をå–ã£ã¦ãã‚‹Perlスクリプト - kkobayashi_a’s blogã‚ã‚‚ - XXXannexã§xpathã ã‘考ãˆã¨ã„ã¦ã‚¹ã‚¯ãƒªãƒ—トã«ã—ã¦ã„ãªã‹ã£ãŸã€‚ ãªã«ã‚„らゴãƒãƒ£ã‚´ãƒãƒ£ã—ã¦ã—ã¾ã£ãŸãªã‚。俺ã®ã‚³ãƒ¼ãƒ‰ã¯ãƒ¢ãƒ€ãƒ³ãªãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã„ã“ãªã™ã»ã©æ´—ç·´ã•ã‚Œã¦ãªã„ã€ã¨ã„ã†ã®ãŒã‚ˆã分ã‹ã‚‹ãªï½— ã‚‚ã†ã¡ã‚‡ã„ã†ã¾ã„ã“ã¨æ›¸ã‘ãã†ãªæ°—ã‚‚ã™ã‚‹ã®ã ãŒãƒ»ãƒ»ãƒ»ã¨ã‚Šã‚ãˆãšå‹•ãã¨ã„ã†ã“ã¨ã§ã€‚ use strict; use warnings; use Web::Scraper; use URI; use URI::Escape; use Data::Dumper; use List::MoreUtils qw(uniq); my $uri = new URI('http://ja.wikipedia.org/wiki/Category:%E6%97%A5%E6%9C%AC%E3%81%AE%E5%A5%B3%E6%80%A7%E5%A3%B0%E5%84%AA'); my $uris = scr
{{#tags}}- {{label}}
{{/tags}}