perl 列出一个目录下的文件的大小

1 use strict;
2 use warnings;
3 use Cwd;
4 my $dir = 'd:\\www';
5 chdir($dir);
6 opendir DIR, $dir or die "Cannot open dir:$!\n";
7 my %result;
8 while(my $filename = readdir(DIR)){
9     next if (($filename eq '.') or ($filename eq '..'));
10     if(-d $filename){$result{$filename} = "Is dir";next;}
11     my $byts = -s $filename;
12     $result{"$filename"} = $byts."byts";
13 }
14 while((my $key, my $value) = each %result){
15     print "$key => $value\n";
16 }