Perl - ディレクトリ操作(ドット以外で始まるもの)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9) の13章(ディレクトリ操作),　13.14(練習問題)2を解いてみる。

2.

前回はドットで始まるものも表示したので、今回はどっと意外で始まるファイルを表示するように改造。

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;

chomp(my $dir = <STDIN>);
if($dir =~ /^\s*$/){
  $dir = "your home directory";
  chdir or die "Cannot chdir to $_: $!";
} else {
  chdir $dir or die "Cannot chdir to $dir: $!";
}

opendir DH,"." or die "Cannot opendir: $_; $!";
for(readdir DH){
  print "$_\n";
}

入出力結果(Terminal)

$ ./perl_program

Calibre Library
Desktop
Documents
Downloads
Dropbox
KindleGen
Library
Movies
Music
pear
Pictures
Projects
Public
Sites
$ ./perl_program
../python
c_program
c_program.c
c_program.dSYM
myfile.txt
python_kamimura_blog
python_program.py
python_program.pyc
python_program1.py
sample.py
sample.txt
$ ./perl_program
../ruby
birth_day_helper
ruby_kamimura_blog
ruby_program.rb
$ ./perl_program
k
Cannot chdir to k: No such file or directory at ./perl_program line 10, <STDIN> line 1.
$