R.A. Epigonos et al.

[perl] ダイヤモンド演算子でdirの代替

> perl -we "print map{$_.\"\t\".scalar(localtime((stat)[9])).\"\n\"}('.','..',<./*>)"
.       Wed Aug 16 17:05:44 2000
..      Wed Aug 16 16:35:38 2000
./a.bat      Sat Feb 18 19:30:08 2006
./a.pl       Tue Feb 14 02:35:22 2006
./a.txt      Sat Feb 18 19:35:58 2006
./b.txt      Sat Feb 25 00:18:58 2006
>

何でもかんでもmap{}を使えばよいと言うものでもない。map{}を使うよりも美しい場合もあると思う。下のほうが美しいSolutionだとは思いませんか。

> perl -wle "foreach('.','..',<./*>){print qq/$_\t/.scalar(localtime((stat)[9]))}"

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2007-09-03T16:42:39+09:00
  2. Modified: 2007-09-03T04:08:16+09:00
  3. Generated: 2023-08-27T23:09:11+09:00