a666666 https://blog.hatena.ne.jp/a666666/ @kyanny's blog https://blog.kyanny.me/ Perl 追記 http://d.hatena.ne.jp/a666666/20090406/1238986138#c1238990265 でご指摘いただいたように、 yaml フィルターを使って - ~ で undef を表現してやれば良いそうです。 #!/usr/bin/perl use strict; use warnings; use Test::Base; plan tests => 1 * blocks; sub match { my $input = shift; my $re = qr/^(\w+)\s(\w+)\s(\w+)\s?(\w+)?$/; my @matched = $inp… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.kyanny.me%2Fentry%2F20090406%2F1238986138" title="Test::Base でこういうのどう書けば良いのだろう - @kyanny&#39;s blog" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-04-06 11:48:58 rich https://blog.kyanny.me/entry/20090406/1238986138 1.0 100%