两行中增加sleep 6

songyc_2015

回复 4# todayhero

1. perl -pne '$/=";;";s/(nohup .*&\n)(\s+);;/$1$2sleep 6\n$2;;/;' file

复制代码

1. $cat test.pl
   
2. #!/usr/bin/env perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. $/ = ";;";
   
7. while (<ARGV>)
   
8. {
   
9.         s/(nohup .*&\n)(\s+);;/$1$2sleep 6\n$2;;/;
   
10.         print;
    
11. }
    
12. $./test.pl file

复制代码