私にとって、で$SOME_DIR = ".";
、私は出力を得ました:
./c-vs-c++1369283477./computist-1.dSYM1381934424./computist-2.dSYM1381934897./ll3.dSYM1381816690./syncio.dSYM1381984813./xs.dSYM1381986208
この穏やかに修正されたコード:
#!/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";
あなたが見るべきものを示すために。