開発環境
- 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(練習問題)2を解いてみる。
その他参考書籍
2.
コード(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) = (stat $_)[8, 9];
$atime = $atime // 0;
$mtime = $mtime // 0;
printf "%-20s %10d %10d\n", $_, $atime, $mtime;
}
入出力結果(Terminal)
$ ./sample.pl Oogaboogoo 1348659241 1344069700 barney 1345602758 992131200 betty 1345602758 992131200 coconet.dat 1342591612 1319443900 date.txt 1335255505 1335255522 fred 1345602758 992131200 gilligan.info 1342851423 1342851423 ginger.info 1342851423 1342851423 link_test 1347352437 1332054588 log_file.txt 1342851321 1311841150 lovey.info 1342851423 1342851423 ls.err 1349771002 1349771002 ls.out 1349771002 1349771002 maryann.info 1342851423 1342851423 monkeyman.info 1342851423 1342851423 numbers 1348987141 992131200 perl_kamimura_blog 1350032538 1349945372 perl_program.bak.bak 1332140329 1332054334 perl_program.pl 1347534601 1332054588 perl_program1 1332141025 1332141025 perl_program1.bak 1332140980 1332140964 professor.info 1342851423 1342851423 result 1342591637 1342591637 sample 1350030391 1340693917 sample.pl 1350113168 1350113164 sample.pl.bak 1347534932 1347534932 sample.pl.bak.bak 1347534932 1347447318 sample_folder 1350030391 1340605913 sample_text 1350032032 992131200 sample_text.out 1332054588 1332054588 sample_text.out.bak 1332054588 1331968107 skipper.info 1342851423 1342851423 some_folder 1350030389 1348815648 sortable_hash 1340961642 992131200 standings.db 1343813502 1343813502 test.bak 1335255201 1331271996 test.out 1347352437 1347352437 test.txt 1347352437 1332054588 test_folder 1348659241 1335769843 test_link 1347352437 1332054588 test_new 0 0 thurston.info 1342851423 1342851423 tmp_folder 1348659386 1348659397 total_bytes.dat 1335079192 1335079192 $
0 コメント:
コメントを投稿