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:\>