Perl - 上級テクニック(map、stat, リストスライス)

初めてのPerl 第6版
Randal L. Schwartz,
Tom Phoenix, brian d foy 共著
近藤 嘉雪 翻訳

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2) の17章(上級テクニック)、17.6(練習問題)3を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉

3.

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.012;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';

for(sort glob "*"){
  my($atime, $mtime) = map{
    my($day, $mon, $year) = (localtime $_)[3,4,5];
    $mon += 1;
    $year += 1900;
    sprintf "%4d-%02d-%02d", $year, $mon, $day;
  }(stat $_)[8, 9];
  $atime = $atime // 0;
  $mtime = $mtime // 0;
  printf "%-20s %10s %10s\n", $_, $atime, $mtime;
}

入出力結果(Terminal)

$ ./sample.pl
Oogaboogoo           2012-09-26 2012-08-04
barney               2012-08-22 2001-06-10
betty                2012-08-22 2001-06-10
coconet.dat          2012-07-18 2011-10-24
date.txt             2012-04-24 2012-04-24
fred                 2012-08-22 2001-06-10
gilligan.info        2012-07-21 2012-07-21
ginger.info          2012-07-21 2012-07-21
link_test            2012-09-11 2012-03-18
log_file.txt         2012-07-21 2011-07-28
lovey.info           2012-07-21 2012-07-21
ls.err               2012-10-09 2012-10-09
ls.out               2012-10-09 2012-10-09
maryann.info         2012-07-21 2012-07-21
monkeyman.info       2012-07-21 2012-07-21
numbers              2012-09-30 2001-06-10
perl_kamimura_blog   2012-10-13 2012-10-11
perl_program.bak.bak 2012-03-19 2012-03-18
perl_program.pl      2012-09-13 2012-03-18
perl_program1        2012-03-19 2012-03-19
perl_program1.bak    2012-03-19 2012-03-19
professor.info       2012-07-21 2012-07-21
result               2012-07-18 2012-07-18
sample               2012-10-12 2012-06-26
sample.pl            2012-10-14 2012-10-14
sample.pl.bak        2012-09-13 2012-09-13
sample.pl.bak.bak    2012-09-13 2012-09-12
sample_folder        2012-10-12 2012-06-25
sample_text          2012-10-12 2001-06-10
sample_text.out      2012-03-18 2012-03-18
sample_text.out.bak  2012-03-18 2012-03-17
skipper.info         2012-07-21 2012-07-21
some_folder          2012-10-12 2012-09-28
sortable_hash        2012-06-29 2001-06-10
standings.db         2012-08-01 2012-08-01
test.bak             2012-04-24 2012-03-09
test.out             2012-09-11 2012-09-11
test.txt             2012-09-11 2012-03-18
test_folder          2012-09-26 2012-04-30
test_link            2012-09-11 2012-03-18
test_new                      0          0
thurston.info        2012-07-21 2012-07-21
tmp_folder           2012-09-26 2012-09-26
total_bytes.dat      2012-04-22 2012-04-22
$