#!/usr/bin/perl 
use File::DirWalk; 
use File::Basename; 
use Data::Dumper; 
use warnings; 
use strict; 
my $dw = new File::DirWalk; 
my %files; 
fileparse_set_fstype("MSWin32"); 
$dw->onFile( 
sub { 
my ($file) = @_; 
push @{$files{basename($file)}->{"Paths"}},$file; 
$files{basename($file)}->{"Num"} += 1; 
return File::DirWalk::SUCCESS; 
} 
); 
my $hTrace; 
open $hTrace, '> Trace.txt'; 
select $hTrace; 
$dw->walk('D:/old/perl'); 
my @newFiles; 
while( my ($k, $v) = each %files) 
{ 
if($v->{"Num"} > 1) 
{ 
#print $k."n"; 
#print Dumper($v); 
push @newFiles, 
{ 
"Name"=>$k, 
"Paths"=>$v->{"Paths"}, 
"Num"=>$v->{"Num"} 
} 
} 
} 
#print Dumper(@newFiles); 
@newFiles = sort {($a->{"Num"}) <=> ($b->{"Num"})} @newFiles; 
print Dumper(@newFiles); 
close $hTrace; 

perl产生随机数实现代码
Perl利用函数rand()和srand()为随机数（更确切的说是"伪随机数"）字符串的生成提供了基本的工具。这些函数不是利用加密来提供安全性的，所以不要利用

两段Perl脚本代码(数组应用与say用法)
一、数组应用#!/usr/binenvperl@zeng=`top-b-n1`;foreach(@zeng){print"$_n";}二、say的用法：自动换行#!/user/binenvperluse5.010;#表示使用perl5.10的版本。say"HelloWorld!";my@fred=ab

学习perl的unless控制结构
例如：unless($fred=~/^([A-Z_]w*$/i){print"Thevalueof$freddoesn'tlooklikeaPerlidentifiername.n";}使用unless意味着，要么条件为真，要么执行某块代码。这就好像使用if控制