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

转载于 2017-02-17 06:20:00 发布 · 195 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/perl6/p/6408193.html

本文介绍了一个使用Perl语言进行文件目录遍历及文件大小读取的例子。通过chdir改变当前工作目录，利用opendir打开目录句柄并遍历指定路径下的所有文件和子目录。对于每个文件，程序还会获取其字节数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 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 }