開発環境
- 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(練習問題)1を解いてみる。
その他参考書籍
1.
コード(BBEdit)
sample.pl
#!/usr/bin/env perl use strict; use warnings; use utf8; binmode STDOUT, ':utf8'; binmode STDIN, ':utf8'; print "ディレクトリ名を入力(空でホームディレクトリに移動): "; chomp(my $dir = <STDIN>); if ($dir =~ /^\s*$/) { chdir or die "can't chdir to your home directory: $!"; } else { chdir $dir or die "can't chdir to $dir: $!"; } for (glob "*") { print "$_\n"; }
入出力結果(Terminal)
$ ls sample_folder/* sample_folder/a.txt sample_folder/sample1.txt sample_folder/b.txt sample_folder/sample2.txt sample_folder/c.txt sample_folder/sample3.txt sample_folder/d.txt sample_folder/sample4.txt sample_folder/e.txt sample_folder/sample5.txt $ ./sample.pl ディレクトリ名を入力(空でホームディレクトリに移動): sample_folder a.txt b.txt c.txt d.txt e.txt sample1.txt sample2.txt sample3.txt sample4.txt sample5.txt $ ./sample.pl ディレクトリ名を入力(空でホームディレクトリに移動): build Calibre Library Copy dart Desktop Documents Downloads Dropbox KindleGen Library Movies Music nltk nltk_data pear perl5 Pictures Projects Public public_html Sites untitled-1.py $ ./sample.pl ディレクトリ名を入力(空でホームディレクトリに移動): perl can't chdir to perl: No such file or directory at ./sample.pl line 14, <STDIN> line 1. $
0 コメント:
コメントを投稿