perl - Perl 中的 “grep -n” 是什么？

Question

我想用行号grep一个词。在 shell 中使用命令 grep -n 或 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/) {

应该足以让您入门。