karpa https://blog.hatena.ne.jp/karpa/ kzhr's diary https://kzhr.hatenadiary.jp/ #!perl use strict; use warnings; use utf8; use open qw/:std :utf8/; my $substr = 3; # まとめ文字数 my $file = shift @ARGV; open my $fh, "<", $file or die; my %match; my $fno = ''; my $lno = 1; my $llno = 0; my $skip = 0; while (my $line = <$fh>) { chomp $line; $llno++; if (not $skip) { $skip = 1 if $line … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkzhr.hatenadiary.jp%2Fentry%2F2019%2F12%2F26%2F025001" title="国語研天草版テキストから対比できそうな四つ仮名を取り出すスクリプト - kzhr&#39;s diary" 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 2019-12-26 02:50:01 rich https://kzhr.hatenadiary.jp/entry/2019/12/26/025001 1.0 100%