regex - 简单的 perl 正则表达式搜索替换脚本

Question

我sed可以这样做：

#!/bin/sed -f

s/pattern/replacement/g

perl 中上述最简单的等价物是什么？

Answer 1

#!/usr/bin/env perl

while (my $m = <>) {
    $m =~ s/pattern/replacement/g;
    print $m;
}

Answer 2

在 perl 中它只是

#!/usr/bin/perl -nw    

s/pattern/replacement/g

Answer 3

这将是 ：

my $str = "fred";
$str =~ s/f/g/g;