08/01/24 07:38:32
>>755
>>759に書いてあるように改行文字で分割される、
事前に>>757を書いておくと、以降$/に代入された文字で分割されるようになる。
ここでは空文字列なので分割しなくなる。
my $txt
{
local $/;
open(F,$txt_file) or die "$txt_fileをオープンできません。";
$txt = <F>;
}
open(F4,$dic_file) || die "$dic_fileをオープンできません。";
foreach $word (<F4>) {
$word =~ s/\n$/s;
$txt =~ s/\Q$word\E//sg #例: マッチ部分削除
}
|´д`)ノ笑ってすまんね