C:\>perl -e "while(<*>){print $_.\"\t\".scalar(localtime((stat($_))[9])).\"\n\";}"
a.bat Tue Feb 14 02:35:46 2006
a.pl Tue Feb 14 02:35:22 2006
a.txt Tue Feb 14 02:02:04 2006
C:\>
しつこくやるのが上達のススメ。ということでファイルサイズを付加してみた。だってdir /Vだと1行に収まらないんだもん。
C:\>perl -e "while(<*>){@F=stat($_); print join\"\t\",($_,$F[7],scalar localtime $F[9],\"\n\");}"
a.bat 1474 Tue Feb 14 02:35:46 2006
a.pl 4988 Tue Feb 14 02:35:22 2006
a.txt 4844 Tue Feb 14 02:02:04 2006
C:\>