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 ·
1747 阅读 ·
0 评论
关注
分享
扫一扫