開発環境
- OS X Lion - Apple(OS)
- BBEdit - Bare Bones Software, Inc.(Text Editor)
- Script言語:Perl
その他参考書籍
1.
コード(BBEdit)
sample.pl
#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.016; binmode STDOUT, ':utf8'; binmode STDIN, ':utf8'; my @sorted = map $_->[0], sort { $a->[1] <=> $b->[1] } map [$_, -s $_], glob "/bin/*"; for (@sorted) { printf "%-20s %10d\n", $_, -s $_; }
入出力結果(Terminal)
$ ./sample.pl /bin/sync 34288 /bin/wait4path 34576 /bin/echo 34608 /bin/rmdir 34624 /bin/domainname 34672 /bin/sleep 34688 /bin/pwd 34704 /bin/hostname 34720 /bin/mkdir 35072 /bin/kill 35088 /bin/link 39600 /bin/ln 39600 /bin/[ 43120 /bin/test 43120 /bin/expr 43808 /bin/cat 44192 /bin/rm 44528 /bin/unlink 44528 /bin/mv 44848 /bin/df 52432 /bin/date 57408 /bin/cp 57808 /bin/dd 61216 /bin/chmod 62768 /bin/stty 64976 /bin/rcp 66368 /bin/ls 80752 /bin/ps 95840 /bin/ed 122000 /bin/launchctl 167472 /bin/pax 243104 /bin/csh 772992 /bin/tcsh 772992 /bin/zsh 1103984 /bin/bash 1371648 /bin/sh 1371712 /bin/ksh 2180736 $
pythonの場合。
sample.py
コード(BBEdit)
#!/usr/bin/env python3.3 #-*- coding: utf-8 -*- import glob, os files = map(lambda x: x[0], sorted( map(lambda x: [x, os.path.getsize(x)], glob.glob("/bin/*")), key=lambda x:x[1])) for file in files: print("{0:20s}{1:10d}".format(file, os.path.getsize(file)))
入出力結果(Terminal)
$ ./sample.py /bin/sync 34288 /bin/wait4path 34576 /bin/echo 34608 /bin/rmdir 34624 /bin/domainname 34672 /bin/sleep 34688 /bin/pwd 34704 /bin/hostname 34720 /bin/mkdir 35072 /bin/kill 35088 /bin/link 39600 /bin/ln 39600 /bin/[ 43120 /bin/test 43120 /bin/expr 43808 /bin/cat 44192 /bin/rm 44528 /bin/unlink 44528 /bin/mv 44848 /bin/df 52432 /bin/date 57408 /bin/cp 57808 /bin/dd 61216 /bin/chmod 62768 /bin/stty 64976 /bin/rcp 66368 /bin/ls 80752 /bin/ps 95840 /bin/ed 122000 /bin/launchctl 167472 /bin/pax 243104 /bin/csh 772992 /bin/tcsh 772992 /bin/zsh 1103984 /bin/bash 1371648 /bin/sh 1371712 /bin/ksh 2180736 $
0 コメント:
コメントを投稿