#!/usr/bin/perl -w
use strict ;
chomp(my $date=`date`);
@ARGV=glob "aa.dat" or die "no files found";
$^I=".bak";
while (<>) {
s/^aaa:*/aaa:change value/;
s/^bbb:.*\n//;
s/^ccc:.*/ccc:$date/;
print ;
}
操作一批文件的方法
#!/usr/bin/perl -w
use strict ;
chomp(my $date=`date`);
# @ARGV=glob "aa.dat" or die "no files found";
@ARGV=glob "*.dat" or die "no files found";
$^I=".test";
while (<>) {
s/^aaa:*/aaa:change value/;
s/^bbb:.*\n//;
s/^ccc:.*/ccc:$date/;
print ;
}
unlink glob "*.o"; ## 删除 *.o的文件
rmdir glob "aa\*"; ## 删除 aa\目录下面的文件
#!/usr/bin/perl -w
use strict ;
chomp(my $date=`date`);
# @ARGV=glob "aa.dat" or die "no files found";
@ARGV=glob "*.dat" or die "no files found";
$^I=".test";
while (<>) {
s/^aaa:*/aaa:change value/;
s/^bbb:.*\n//;
s/^ccc:.*/ccc:$date/;
print ;
}
unlink glob "*.dat";
perl-指定目录下面修改某文件的名字及修改此文件中的内容
最新推荐文章于 2017-07-28 09:30:27 发布