开放匿名管道Perl编程

如何测试列出的任何文件是否在perl编程的最后12小时内被修改过。打印这些文件的名称。开放匿名管道Perl编程

这是我的代码，但它不起作用。任何人都可以教我如何解决它？

use warnings; 
    open(LISTDIR, "find ~ -type f -mtime 0 -ls /Users/Perl/ | ") or die "PIPE failed $!\n"; 
    while($filename = <LISTDIR>){ 
    print $filename; 
    }

来源

2016-03-04 Johnny

-ls不带参数。 – laune

“不起作用”是什么意思？ –

我希望在过去的12个小时里有这些文件，但它是所有这些文件。 – Johnny

use warnings; 
open(LISTDIR, "find ~ -type f -mtime 0 -ls | ") or die "PIPE failed $!\n"; 
while($filename = <LISTDIR>){ 
    print $filename; 
}

你应该看到一个错误信息：

find: paths must precede expression: /Users/Perl

这说明了一切。

来源

2016-03-04 16:44:58 laune

不要忘记关闭文件句柄并检查close的成功。打开管道时，'open'只返回'fork'是否成功，而不管被调用的程序是否成功。 – ThisSuitIsBlackNot

我希望在过去的12个小时里有这些文件，但它是所有这些文件。 – Johnny

开放匿名管道Perl编程

回答

相关问题