Question

如何测试在perl编程中过去12小时内是否修改了列出的任何文件。打印这些文件的名称。

这是我的代码，但它不起作用。谁能教我如何解决它？

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

Answer 1

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

解释了一切。

打开匿名管道Perl编程

1 个答案: