perl 匹配某行后添加字符串

在所有文件的第一行后添加一行注释，例如:

#!/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; }