YUYAN

摘要： 对所有输入文件，如果没有版权信息则加上版权信息，否则什么都不做，并对原文件以.bak结尾备份。开始我使用如下程序（尝试前千万先备份输入的文件）：#!usr/bin/perl -w$^I = ".bak";my %do_these;foreach (@ARGV){ print $_; $do_these{$_} = 1;}while(<>){ if(/^## Copyright/){ delete $do_these{$ARGV}; }}@ARGV = sort keys %do_these;while(<>){ if(/^#!/){ $_ .= &q 阅读全文

摘要： 修改文件名一个修改文件名的错误示例：1 #!/usr/bin/perl2 foreach (@ARGV){3 s/(\.bak)?$//; #去掉文件名的.bak后缀4 }上面代码是我初学perl时写下的，然而这并不能修改文件名，事实上，所修改的仅仅是列表@ARGV中的变量，一旦退出程序，修改后的变量就会销毁。可以使用rename来实现。 1 #!/usr/bin/perl 2 foreach my $file (glob "*.bak"){#查找当前目录以.bak为后缀的文件 3 my $newFile = $file; 6 $newFile =~ s/.bak$//;# 阅读全文