regex - Perl 正規表現置換は、各行の最初の文字のみを変更します

Question

最も単純な Perl REGEX を実行するのに問題があります。Notepad++ では正しく動作しますが、Perl では動作しません。

open FILE, "Something.txt";
while (<FILE>) {
   s/./f/;
    print;
}

ただし、出力は各行の最初の文字のみを F に変更します。この正規表現が明らかにすべての文字を F に変更すると言っている場合は、

score 3 · Accepted Answer

私はしばらくperlを使用していませんが、試してみてくださいs/./f/g（コメントのQuentinによると（感謝）、最初の一致後に停止するのではなく、gがグローバルになります）。

score 1 · Accepted Answer

g修飾子を追加してグローバルにする必要があります。そうしないと、最初の一致後に停止します。

s/./f/g

score 1 · Accepted Answer

次のサンプルコードを参照してください。

ファイル :

$ cat /tmp/test
aaaa
bbbb
cccc

Perl コード (私が使用perlconsole)

Perl> open FH, "<", "/tmp/test"
1

Perl> while (<FH>) { s/./f/g; print; }
ffff
ffff
ffff


Perl> close FH
1

Perl>

score 0 · Accepted Answer

グローバルな変更のためにフラグを立てる必要があります。

open FILE, "Something.txt";
while (<FILE>) {
   s/./f/g;
    print;
}
CLOSE (FILE);

4 に答える 4