naoyaã®ã¯ã¦ãªãã¤ã¢ãªã¼ - Web::Scraperãè¦ã¦ã ããã¯ãããããã½ã¼ã¹èªãã§ã¿ãã¨åç´ã«å¤ãåå¾ãã以å¤ã«ããã©ããããé åã§çµæãåãåã£ããããµãã«ã¼ãã³ã渡ãã¦å¦çãå§è²ãããã§ãããããªã®ã§ããããã«ãã£ã¦ã¿ããã use strict; use warnings; use Web::Scraper; use URI; use YAML; use Encode; my %result; sub parse_title { my $node = shift; my $text = $node->as_text; my $left = decode_utf8('ã'); my $right = decode_utf8('ã'); my ($nth, $title, $date) = $text =~ m/^\[(.*?)\]\s+$left(.*?)$right(.
{{#tags}}- {{label}}
{{/tags}}