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 ne... 阅读全文
posted @ 2017-02-17 06:20 Perl6 阅读(1046) 评论(0) 推荐(0) 编辑