Как я могу найти определенную строку в файле, используя Perl?

Question

Я новичок в Perl.Я хочу найти строку в каком-то файле, а затем мне нужна вся строка, содержащая строку.

Answer 1

perl -ne 'print if m/whatever/' file

Answer 2

1. Открыть файл

2. Loop, , в то время как есть строк для чтения из файла

   2.1 Используя регулярные выражения , проверьте, соответствует ли строка шаблону: if ($line =~ /pattern/).

   2.2 Если да, печать строка

3. Закрыть файл.

Answer 3

if ( !open(LOGFILE, "<myfile.log") ) 
{
print "ERROR: failed to open myfile.log\n";}
else {   
while (<LOGFILE>){
if ($_ =~ /pattern/)
    {    print "found\n";
         break;
     }
}   
close (LOGFILE);
}