system()调用问题

flw

就不能有个让我满意的答案吗？

flw

unlink grep { 50000 > -s } </export/home/*TEST*>;

你们怎么就都让楼主牵着鼻子走呢？

就算是不会写这样复杂的句子，下面这个也总会吧？

1. my @files = glob("/export/home/*TEST*");
   
2. foreach my $file (@files){
   
3.     my $size = -s $file;
   
4.     unlink $file if $size < 50000;
   
5. }

复制代码

这样可读性又好，效率又高，移植性更是没得说。
不知道为什么你们总是人家要什么就给什么呢？
就不能想着一切以目的为导向？

[ 本帖最后由 flw 于 2008-8-28 11:56 编辑 ]