system()调用问题

forlorngenius

forlorngenius

看来 老大得多多培训俺们成perl得中坚力量哈

lokchungk

用

`ls -l /export/home/*TEST*|nawk '{ if ($5 <50000) print "rm "$9}'|sh`

算了

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 编辑 ]

forlorngenius

unlink

又忘了

lokchungk

哦 明白了
待會在VM裝Ubuntu試試

[ 本帖最后由 lokchungk 于 2008-8-27 22:40 编辑 ]

lvDbing

  还是用管道方便些

cobrawgl

不好意思，根本就没看他那是干什么事情的

forlorngenius

大实话

rockmars

多谢各位，用的
q(ls -l /export/home/*TEST*|nawk '{ if ($5 <50000) print "rm "$9}'|sh)