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

Question

我想用行号写一个字。使用命令grep -n或sed可以在shell中轻松实现。 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/) {

应该足以让你入门。