若發現打印全線

Question

我有很多行

Hi i need to work for 
    This place 
    Which adds me 
    More value in this 
    wolrd 
    Where i can explore my technical skills 

我正在尋找的話增加了me =~ /adds/

如果匹配才發現我有打印的全線「這增加了我」 Perl的正則表達式匹配

如何做到這一點在Perl

Answer 1

我不知道是否有一個可以使用-p選項解決問題測試here

Answer 2

隨着perl命令：

perl -ne '/adds/ && print $_' file 

輸出：

Which adds me 

在script.pl：

while (<>) { 
    print if (/adds/); 
} 

然後調用腳本：

perl script.pl file 

Answer 3

perl -lne 'print if(/\badds\b/)' your_file 

如果在文件

open(FH,'filename"); 

while(<FH>){ 

    if($_=~/adds/){ 
     print $_; 
    } 
} 

Answer 4

while (<STDIN>) { 
    if($_ =~ m/adds me/) { ##this worked for me 
    print $_;} 
} 

Answer 5

。最後，我發現這oneliner

perl -pe 'goto LINE unless /adds/;' filename 

Answer 6

while (<FILE>) { 

    if (/adds/) { print $_;} 
}