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

Question

我有一个字符串test.cgi@action=<action-name>

<action-name>可以是任何字符串

我想用<action-name>.html文件中所有出现的地方替换上面的字符串。

任何人都可以让我知道如何使用 Perl 脚本进行此操作吗？

ps：当我作为对现有消息的评论发布时，我没有得到任何回应。所以，我将作为新消息发布。

Answer 1

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

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

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

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

Answer 2

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