获取在perl脚本中执行unix命令的价值

Question

我正在通过perl脚本执行一个unix命令来获取一个direcory的大小.

$path = "/dir1/di2/";
system("du -sh $path");

如何在perl脚本中返回结果.

我在用

$size = system("du -sh $path");
print $size

但它给出size = 0;

Answer 1

您也可以使用perl,例如,如此处所示.就像是

use File::Find;           
find(sub { $size += -s if -f $_ }, $path);