在perl中查找具有所需扩展名的用户拥有的所有文件

Question

我的要求是处理执行用户拥有的.log类型的所有文件。 以下代码无效。 提前谢谢......

#!/usr/bin/perl

$cmn_dir="/tmp";
my $USER = $ENV{'LOGNAME'};
print "user:$USER\n";
@ifile_log="find $cmn_dir -user $USER -type f -name \"*.log\"";
foreach $file(@ifile_log)
{
        print "file:$file\n";
}

Answer 1

这里有一些链接可以帮助您：

1. Perl glob function to list all *.log files
2. Perl stat function to get file owner id
3. Perl variables tutorial to find current user id

Answer 2

您实际上并没有执行Unix“find”命令，而只是将其存储在字符串变量中。

你需要把它放在反引号中

`find ...`;

或qx（）就像这样

qx(find ...);