Whileループじゃなくて一気に中身を変数にいれたいときはこうする。 my $str = do { open my $fh, '<', $file or die $!; local $/ = undef; <$fh>; }; local $/ = undefとやるとdoブロック内でのみ改行コードを無視できる。 readline関数が一度に読み取るの…

やりたいこと 日本語の文字列に任意の文字列が含まれるかどうか判定したい。 二通りのやりかたを書く。 正規表現でマッチさせる use Encode qw/encode/; # source text my $str = 'メッセージ”通信エラー”が表示されます。'; my $p = '通信エラー'; $p = enc…