替换文件中所有出现的字符串

Question

我有一个字符串 test.cgi@action=

可以是

我想用 < 替换上面字符串的 任何字符串code>.html 用于文件中所有出现的情况。

谁能告诉我如何使用 Perl 脚本继续此操作？

ps：当我发布对现有消息的评论时，我没有得到任何回复。因此，我将发布一条新消息。

Answer 1

use strict;
use warnings;
use 5.010;

my $string = <<'END_OF_STRING';
    test.cgi@action=xxxxxxxxxxx
    xxxxx test.cgi@action=aaaaaa
    yyyyyyyyyyytest.cgi@action=
END_OF_STRING


$string =~ s/test.cgi\@action=/.html/g;
print $string;


--output:--
    .htmlxxxxxxxxxxx
    xxxxx .htmlaaaaaa
    yyyyyyyyyyy.html

Answer 2

如果它是一个文件，您可以只使用 sed （假设您使用的是某种 *nix 平台）。

sed 's/test.cgi@action=/.html/g' file > output

或者，如果您觉得有风险，可以就地编辑该文件。

sed -i 's/test.cgi@action=/.html/g' file