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/; pri

>>阅读原文<<