如何用程序提出文件夹下小于1K的文件？

changejun

UID: 25164
帖子: 1
积分: 2
在线时间: 10 分钟

1^# changejun 发表于 2008-09-19 15:45

如何用程序提出文件夹下小于1K的文件？

如题，请各位高手指点！
ps：linux 系统。

opendir() ; readdir(); 好像不行，好像只能提取文件的名字.

heroinhell

UID: 28249
帖子: 3
积分: 6
在线时间: 10 分钟

2^# heroinhell 发表于 2008-09-19 16:46

stat.h

changejun

UID: 25164
帖子: 1
积分: 2
在线时间: 10 分钟

3^# changejun 发表于 2008-09-19 16:49

哥们，这啥意思啊？用perl实现！
请明示！

xuanfei

UID: 22625
帖子: 1
积分: 2
在线时间: 10 分钟

4^# xuanfei 发表于 2008-09-19 16:55

my $yoursize= -s $yourfile;

hfahe

UID: 36097
帖子: 160
积分: 368
在线时间: 1 天 11 小时

5^# hfahe 发表于 2008-09-19 17:07

-s文件操作符 stat函数

xiaoyu9805119

UID: 39268
帖子: 67
积分: 154
在线时间: 6 小时

6^# xiaoyu9805119 发表于 2008-09-19 17:09

给个简单的实例把。
$testdir = 'c:';
opendir(DIR,$testdir) || die "error:$!";
@files = grep {-s "$testdir/$_"<1024 && !-d "$testdir/$_"} readdir(DIR);
closedir DIR;

可以这样输出看看
foreach(@files){
print "$testdir/$_ -> ",-s "$testdir/$_","\n";
}

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

7^# cobrawgl 发表于 2008-09-19 18:38

File::Find + -s