perl 文件读写合并数据分割 去重 windows

#文件目录 $dir_name=<D:pv>; ?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_name.$f); ??@all = <files>; ??close files; ?? ??open(fn,">>pvtest.log"); ??open(fn1,">>pvtest1.log"); ??## 获取1个文件的每一行，分割后获取到第二个数据 ??for $fns(@all) ??{ ???# 获取1个文件的每一行，分割后获取到第二个数据 begin ???@a = split(/|/,$fns ); ???$t = @a; ???$ss = $a[$t-2]; ??? ???if(!$ss eq "") ???{ ???print fn "'".$ss."'".",n"; ???} ??? ???# 获取1个文件的每一行，分割后获取到第二个数据 end ??} ??##合并文件 ?? ??#获取数据数组长度 ??$count = @all; ??if($count>0) ??{ ???print fn1 @all; ??} ?? close fn; ?? close fn1; ?? ? } ? ?} ?#数据去重，并保存 ?open(fn,"pvtest.log"); ?my %hash; ?my @array = <fn>; ?#grep 保存符合条件的元素 ?@array = grep { ++$hash{$_} < 2 } @array; ?close fn; ?open(fn,">pvtest.log"); ?print fn @array; ?close fn; ? ?closedir DIR;