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;
}