2013年1月17日木曜日

開発環境

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

その他参考書籍

2.

コード(BBEdit)

sample.pl

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

for(glob "*"){
  my($atime, $mtime) = (stat $_)[8, 9];
  printf "%-25s%20d%20d\n", $_, $atime, $mtime
}

入出力結果(Terminal)

$ ./sample.pl
__pycache__                        1356752369          1358146528
barney                             1356001850           992131200
betty                              1356001850           992131200
coconet.dat                        1351069286          1319443900
date.txt                           1352529952          1335255522
fred                               1356001850           992131200
gilligan.info                      1356001850          1351323038
ginger.info                        1356001850          1351323038
hello_world.pl                     1355917222          1355892072
link_test                          1358320208          1332054588
ln.txt                             1357027085          1357027085
ln1.txt                            1357027085          1357027085
log                                1356001850          1351240266
log_file.txt                       1351322829          1311841150
lovey.info                         1356001850          1351323038
ls.err                             1358070286          1358070355
ls.out                             1358070286          1358070356
maryann.info                       1356001850          1351323038
monkeyman.info                     1356001850          1351323038
numbers                            1356001850           992131200
Oogaboogoo                         1356752369          1344069700
perl_kamimura_blog                 1356002295          1356002295
perl_kamimura_blog.html            1358322378          1358320555
perl_program1                      1356002263          1332141025
professor.info                     1356001850          1351323038
result                             1356001850          1342591637
sample                             1358317397          1340693917
sample.pl                          1358411579          1358411577
sample.pl.bak                      1355893403          1355893372
sample.py                          1358322379          1358320364
sample_folder                      1358317397          1340605913
sample_text                        1358317410           992131200
skipper.info                       1356001850          1351323038
some_file                          1356331384          1356331384
some_folder                        1358317380          1357137716
sortable_hash                      1356001850           992131200
standings.db                       1356001850          1352278392
test.out                           1356001851          1355553807
test.txt                           1358320208          1332054588
test_folder                        1356752370          1335769843
test_link                          1358320208          1332054588
thurston.info                      1356001851          1351323038
tmp.txt                            1355464520          1354171865
tmp_folder                         1356752370          1348659397
total_bytes.dat                    1351070414          1351069466
untitled text 2.txt                1352078274          1352078274
$

pythonの場合。

sample.py

コード(BBEdit)

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

import glob, os

for file in glob.glob("*"):
    atime, mtime = os.stat(file)[7:9]
    print("{0:25s}{1:20d}{2:20d}".format(file, atime, mtime))

入出力結果(Terminal)

$ ./sample.py
__pycache__                        1356752369          1358412099
barney                             1356001850           992131200
betty                              1356001850           992131200
coconet.dat                        1351069286          1319443900
date.txt                           1352529952          1335255522
fred                               1356001850           992131200
gilligan.info                      1356001850          1351323038
ginger.info                        1356001850          1351323038
hello_world.pl                     1355917222          1355892072
link_test                          1358320208          1332054588
ln.txt                             1357027085          1357027085
ln1.txt                            1357027085          1357027085
log                                1356001850          1351240266
log_file.txt                       1351322829          1311841150
lovey.info                         1356001850          1351323038
ls.err                             1358070286          1358070355
ls.out                             1358070286          1358070356
maryann.info                       1356001850          1351323038
monkeyman.info                     1356001850          1351323038
numbers                            1356001850           992131200
Oogaboogoo                         1356752369          1344069700
perl_kamimura_blog                 1356002295          1356002295
perl_kamimura_blog.html            1358411718          1358411718
perl_program1                      1356002263          1332141025
professor.info                     1356001850          1351323038
result                             1356001850          1342591637
sample                             1358317397          1340693917
sample.pl                          1358411617          1358411577
sample.pl.bak                      1355893403          1355893372
sample.py                          1358412649          1358412628
sample_folder                      1358317397          1340605913
sample_text                        1358317410           992131200
skipper.info                       1356001850          1351323038
some_file                          1356331384          1356331384
some_folder                        1358317380          1357137716
sortable_hash                      1356001850           992131200
standings.db                       1356001850          1352278392
test.out                           1356001851          1355553807
test.txt                           1358320208          1332054588
test_folder                        1356752370          1335769843
test_link                          1358320208          1332054588
thurston.info                      1356001851          1351323038
tmp.txt                            1355464520          1354171865
tmp_folder                         1356752370          1348659397
total_bytes.dat                    1351070414          1351069466
untitled text 2.txt                1352078274          1352078274
$

0 コメント:

コメントを投稿