くだすれPerl（超初心者用）

くだすれPerl（超初心者用） at PHP

760:nobodyさん
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 #例: マッチ部分削除
}

|´д`)ﾉ笑ってすまんね

次ページ

続きを表示

1を表示