perl 文件读写合并数据分割 去重 windows
#文件目录$dir_name=; opendir(DIR,$dir_name) || die "Can't open directory $dir_name"; @dots = readdir(DIR); for my $f(@dots){ #当文件名包含.log时 if($f=~/.log/) { #打开文件,并获取相应数据, #.为字符串连接符 open(files,$dir_n
原创
2014-02-28 11:05:02 ·
1732 阅读 ·
0 评论