Perl中的"grep -n"相当于什么？

Question

我想用行号来说一句话.使用命令grep -n或在shell中很容易实现sed.Perl中是否有可用的等价物？我检查了grep函数,但是我无法找到我需要的东西.

Answer 1

在名为mygrep的文件中:

#!/usr/bin/perl

use strict;
use warnings;

my $match = shift;

while (<>) {
  if (/\Q$match/) {
    print "$. : $_";
  }
}

然后从命令行:

$ ./mygrep if mygrep 
6 : my $match = shift;
9 :   if (/\Q$match/) {

应该足以让你入门.