perl 插入行

fufelixzh

請(qǐng)用perl實(shí)現(xiàn)，關(guān)鍵字是diskinfo，在diskinfo的前一行加#add by abc,后一行加print (stderr,"abc line111 \n")
cat 1.txt
fdfa
sort_diskinfo()
print1
輸出：
fdfa
#add by abc
sort_diskinfo()
print (stderr,"abc line111 \n")
print1
--
另外
perl -pe 'print  "\n" if /diskinfo/' 2.txt
我理解這句是在diskinfo行的下面print "\n";結(jié)果卻是在其上面打印print "\n"
why呢

pitonas

{:2_172:}

1. #!/usr/bin/perl
   
2. 
   
3. my $dist = 'diskinfo';
   
4. while (<DATA>) {
   
5.     print /$dist/
   
6.       ? ( "#add by abc\n", $_, 'print (stderr,"abc line111 \n")', "\n" )
   
7.       : $_;
   
8. }
   
9. 
   
10. __DATA__
    
11. fdfa
    
12. sort_diskinfo()
    
13. print1
    

復(fù)制代碼

fufelixzh

回復(fù) 2# pitonas

感謝回帖
追問(wèn)一下
    我理解這句是在diskinfo行的下面print "\n";結(jié)果卻是在其上面打印print "\n"
perl -pe 'print  "\n" if /diskinfo/' 2.txt

如果用命令行的方式，正diskinfo行的下面print "\n";應(yīng)該如何做呢

jason680

回復(fù) 1# fufelixzh

How about this

# perl -lape '$_="#add by abc\n$_\nprint (stderr,\"abc line111 \\n\")" if /diskinfo/' 1.txt
fdfa
#add by abc
sort_diskinfo()
print (stderr,"abc line111 \n")
print1

   

pitonas

{:2_172:} 師傅, this is very good
but -lape: # How about this  -lpe

回復(fù) 4# jason680


   

jason680

回復(fù) 5# pitonas


usually, I use "lane" to remember the arguement ...

fufelixzh

回復(fù) 6# jason680


    感謝回帖

pitonas

師傅, thanks! That's smart.
回復(fù) 6# jason680


   

vinian

1. perl -h
   
2. 
   
3.   -n                assume "while (<>) { ... }" loop around program
   
4.   -p                assume loop like -n but print line also, like sed
   

復(fù)制代碼

kernel69

1. perl -lpe '/diskinfo/ and $_="#add by abc\n$_\nprint (stderr,\042abc line111 \\n\042)"' ff
   
2. dfa
   
3. #add by abc
   
4. sort_diskinfo()
   
5. print (stderr,"abc line111 \n")
   
6. print1

復(fù)制代碼

回復(fù) 1# fufelixzh