无法获取上次修改时间的文件夹

我想通过perl获取上次修改日期和时间的文件夹。我的代码是：无法获取上次修改时间的文件夹

my @dirs = grep { -d } glob "$SOME_DIR/*"; 
foreach my $dir (@dirs) 
{ 
    print($dir); 
    print((stat $dir)[9]); #line got problem with 
}

但它只是在$ SOME_DIR下打印的只是子文件。自打印（$ dir）起作用后，我确定存在$ SOME_DIR路径。有谁知道什么不能得到目录的最后修改时间？谢谢！

来源

2013-10-17 Ben

你能告诉什么'$ SOME_DIR'样子，你的输出是什么样子？我无法重现这个问题。 – dms

在stat（）调用失败后，你可以看看'$！'吗？ –

我明白了，谢谢大家。删除使用File :: stat后，它工作正常。 – Ben

对我来说，与$SOME_DIR = ".";，我得到的输出：

./c-vs-c++1369283477./computist-1.dSYM1381934424./computist-2.dSYM1381934897./ll3.dSYM1381816690./syncio.dSYM1381984813./xs.dSYM1381986208

这mildy修改后的代码：

#!/usr/bin/env perl 
use strict; 
use warnings; 

my $SOME_DIR = "."; 

my @dirs = grep { -d } glob "$SOME_DIR/*"; 
foreach my $dir (@dirs) 
{ 
    printf "%-20s - %d\n", $dir, (stat $dir)[9]; 
}

给输出：

./c-vs-c++   - 1369283477 
./computist-1.dSYM - 1381934424 
./computist-2.dSYM - 1381934897 
./ll3.dSYM   - 1381816690 
./syncio.dSYM  - 1381984813 
./xs.dSYM   - 1381986208

你需要证明什么在你的$SOME_DIR。例如，您可以使用：

system "ls -l $SOME_DIR";

显示您应该看到的内容。

来源

2013-10-17 05:21:31

我得到了我的$ SOME_DIR下的子文件夹列表：fullDate1，fullDate2，fullDate3 – Ben

使用'my @dirs = glob“$ SOME_DIR/* /”'不是更简单吗，还是不适用于所有操作系统？ –

很可能......我主要是通过创建一个SSCCE（[Short，Self-Contained，Correct Example]（http://sscce.org/））来说明问题中描述的代码可以工作。问题似乎是使用['File :: stat']（http://perldoc.perl.org/File/stat.html）。 grep找到目录（'-d'测试）。否则，测试将需要在循环体中完成。 –

试试这个： -

#!/usr/bin/perl 

    @1=`ls -ltr abcdpathtodir | grep ^d | awk '{\$1=\$2=\$3=\$4=\$5=""; print \$0}'`; 
    foreach $i (@1) 
    { 
      print " ---$i\n"; 
    }

或其他方式： -

@m=`ls -ltr dir | grep ^d | awk '{print \$6,\$7,\$8,\$9}'`; 
foreach $i (@m) 
{ 
     print "$i\n"; 

}

来源

2013-10-17 09:56:05 pkm

使用数字作为数组名称，并且根据shell命令在bash和类似文件中编写脚本时有意义，但在perl中，它是不必要的依赖项。 –

感谢您的评论...只要数组的名称被认为是我们可以改变，但在这种情况下，shell命令可以正常工作......你有这样短的代码长度的解决方案我会很高兴学习从那个....... – pkm

检查http://stackoverflow.com/a/19418840/223226它使用Perl本地'glob（）'目录列表，筛选目录与'-d'和'stat（）'获得修改时间 –

无法获取上次修改时间的文件夹

回答

相关问题