perl 匹配某行後新增字串

weixin_34205076發表於2017-11-23
字串
在所有檔案的第一行後新增一行註釋，例如:
#!/usr/bin/perl 
..... 
....
在其後面新增新增一行## Copyright (c) 2011 by mcshell
效果如下
#!/usr/bin/perl 
## Copyright (c) 2011 by mcshell 
... 
...
完成程式碼如下
#!/usr/bin/perl 
## Copyright (c) 2011 by mcshell 
my %do_these; 
foreach (@ARGV) { 

$do_these{$_}=1;       
} 
while (<>){ 
if(/^## Copyright /){ 
                delete $do_these{$ARGV};  #如果存在就刪除它


} 

} 
@ARGV= sort keys %do_these; 
$^I=".mc"; 
while (<>){ 
if(/^#!/){ 

$_ .= "## Copyright (c) 2011 by mcshell\n"; 
} 
print; 
}









本文轉自 mcshell 51CTO部落格，原文連結：http://blog.51cto.com/mcshell/482156，如需轉載請自行聯絡原作者

相關文章