2012-01-13から1日間の記事一覧
こういう話。 use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; my $name = 'アマガミSS+ plus'; my $title = '[アニメ][0642] アマガミSS+ plus 第01話「絢辻詞編 前編 ユウワク」'; print $title =~ /$name.+(\d+)/ ? 'matched' : 'unmatche…
こういう話。 use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; my $name = 'アマガミSS+ plus'; my $title = '[アニメ][0642] アマガミSS+ plus 第01話「絢辻詞編 前編 ユウワク」'; print $title =~ /$name.+(\d+)/ ? 'matched' : 'unmatche…