開発環境
- OS X Lion - Apple(OS)
- BBEdit - Bare Bones Software, Inc., Emacs(Text Editor)
- プログラミング言語: Perl
『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2)の13章(ディレクトリ操作)の13.13(練習問題)3を解いてみる。
その他参考書籍
3.
コード(BBEdit)
sample.pl
#!/usr/bin/env perl
use strict;
use warnings;
use 5.016;
use utf8;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
print "ディレクトリ名を入力: ";
chomp(my $dir = <STDIN>);
if ($dir =~ /^\s*$/) {
chdir or die "can't chdir home: $!";
} else {
chdir $dir or die "can't chdir to $dir: $!";
}
opendir my $dir_h, "." or die "can't open $dir: $!";
for (sort readdir $dir_h) {
say $_;
}
close $dir_h;
入出力結果(Terminal)
$ ./sample.pl ディレクトリ名を入力: . . .. .DS_Store .out Gilligan: Ginger: Lovey: MaryAnn: MonkeyMan: Oogaboogoo Professor: Skipper: Thurston: __pycache__ barney betty coconet.dat coconet_total.dat coconet_total_2.dat date.log date.txt distribute-0.6.34.tar.gz fred gilligan.info ginger.info hello_world.pl html link_test ln.txt ln1.txt log log_file.txt lovey.info ls.err ls.out maryann.info monkeyman.info numbers perl_kamimura_blog perl_kamimura_blog.html perl_program1 professor.info result sample sample.pl sample.py sample.txt sample_folder sample_text skipper.info some_file some_folder sortable_hash standings.db test.out test.py test.txt test.txt.out test_folder test_link thurston.info tmp.txt tmp_folder total_bytes.dat untitled text 2.txt $ ./sample.pl ディレクトリ名を入力: ../python *Minibuf-2* # *Minibuf-2*# #sample.py# #y# . .. .DS_Store __pycache__ build c_program c_program.c c_program.dSYM changer.py file.py html kamimura.jpg myclient.py myclient1.py myclient2.py myfile.txt mypkg person_name.xml personal_name.txt python_kamimura_blog python_kamimura_blog.html python_program.pyc python_program1.py recur1.py recur2.py sample.py sample.pyc sample.py~ sample.txt sample_dir sample_folder some_file tmp.pl tmp.py tmp.txt $
0 コメント:
コメントを投稿