Perl - ディレクトリ操作(ファイルテスト(シンボリックリンク「-l」), readlink関数)

初めてのPerl 第6版
(オライリージャパン)
Randal L. Schwartz (著) brian d foy (著)
Tom Phoenix (著), 近藤 嘉雪 (翻訳)

開発環境

• OS X Mavericks - Apple(OS)
• BBEdit - Bare Bones Software, Inc., Emacs (Text Editor)
• Perl (プログラミング言語)

初めてのPerl 第6版 (Randal L. Schwartz (著)、brian d foy (著)、Tom Phoenix (著)、近藤 嘉雪 (翻訳)、オライリージャパン)、13章(ディレクトリ操作)の13.13(練習問題)8.を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

13.13(練習問題)8.

コード(BBEdit, Emacs)

sample290_8.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

for (glob '*') {
    say "$_ -> " . readlink $_ if -l $_;
}

入出力結果(Terminal)

$ ./sample290_8.pl 
temp2.txt -> temp.txt
temp4.txt -> ./temp_dir/temp.txt
$ ls -l
total 112
drwxr-xr-x  20 kamimura  staff   680 Jun 10 15:50 ./
drwxr-xr-x  80 kamimura  staff  2720 May 27 18:07 ../
-rwxr-xr-x   1 kamimura  staff   297 May 20 12:26 mv.pl*
-rwxr-xr-x   1 kamimura  staff   528 Apr 29 19:56 sample289_1.pl*
-rwxr-xr-x   1 kamimura  staff   530 Apr 30 20:50 sample289_2.pl*
-rwxr-xr-x   1 kamimura  staff   435 May  6 15:10 sample289_3.pl*
-rwxr-xr-x   1 kamimura  staff   194 May 13 15:19 sample289_4.pl*
-rwxr-xr-x   1 kamimura  staff   269 May 20 12:20 sample290_5.pl~*
-rwxr-xr-x   1 kamimura  staff   341 May 27 18:14 sample290_6.pl*
-rwxr-xr-x   1 kamimura  staff   269 May 27 18:09 sample290_6.pl~*
-rwxr-xr-x   1 kamimura  staff   487 Jun  3 17:34 sample290_7.pl*
-rwxr-xr-x   1 kamimura  staff   341 Jun  3 17:26 sample290_7.pl~*
-rwxr-xr-x   1 kamimura  staff   202 Jun 10 15:50 sample290_8.pl*
-rw-r--r--   1 kamimura  staff   189 Jun 10 15:49 sample290_8.pl~
-rw-r--r--   4 kamimura  staff     0 May 20 12:27 temp.txt
-rw-r--r--   4 kamimura  staff     0 May 20 12:27 temp1.txt
lrwxr-xr-x   1 kamimura  staff     8 Jun  3 17:34 temp2.txt@ -> temp.txt
-rw-r--r--   4 kamimura  staff     0 May 20 12:27 temp3.txt
lrwxr-xr-x   1 kamimura  staff    19 Jun  3 18:03 temp4.txt@ -> ./temp_dir/temp.txt
drwxr-xr-x   5 kamimura  staff   170 Jun  3 17:37 temp_dir/
$