実践Excelスクレイピング6. Perlã§ã‚¹ã‚¯ãƒ¬ã‚¤ãƒ”ング… •ã¶ã£ã¡ã‚ƒã‘ã‚ã‚“ã©ã„ï¼ â€¢ãƒ©ã‚¤ãƒ–ãƒ©ãƒªã¯ãã‚ã£ã¦ã‚‹ã‘ã©ã€ ギークãŒå¤šã™ãŽã¦ 「ソースå«çŠ¶æ…‹ã€ ã«ãªã‚Šã¤ã¤ã‚ã‚‹ •EncodeãŒå‡ºã¦ãã¦ï¼Ÿï¼Ÿã«ãªã£ãŸ •ã“れをメンテナã®äººã«èžã‹ã‚Œã‚‹ã¨ 殴られる •Perl 6ã„ã¤å‡ºã‚“ã ã‚ˆï¼ 8. ソース #!/usr/bin/env perl use strict; use Encode::Locale; binmode STDOUT => ':encoding(console_out)'; use Web::Query; use HTML::Entities; $|=1; wq( 'http://www.city.shibuya.tokyo.jp/data/statics/base/nenbetu.html‘ ) ->find('table')->first ->find('tr')->each(sub{ my( $i, $
{{#tags}}- {{label}}
{{/tags}}