perl-指定目录下面修改某文件的名字及修改此文件中的内容

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