Что эквивалентно «grep -n» в Perl?

Question

Я хочу получить слово с номером строки.Это легко сделать в оболочке с помощью команды 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/) {

Этого должно быть достаточно, чтобы начать.