2013年4月18日木曜日

開発環境

『初めての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 コメント:

コメントを投稿