Perl - ディレクトリ操作(link関数(ハードリンクの作成))

初めての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(練習問題)6.を解いてみる。

その他参考書籍

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

13.13(練習問題)6.

コード(BBEdit, Emacs)

sample290_6.pl

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

my ($source, $target) = @ARGV;

$target = File::Spec->catfile($target, basename $source) if -d $target;

link $source, $target or die "Can't link '$source' to '$target: $!";

入出力結果(Terminal)

$ ls -l temp*.txt
-rw-r--r--  1 kamimura  staff  0 May 20 12:27 temp.txt
$ ./sample290_6.pl temp.txt temp1.txt
$ ls -l temp*.txt
-rw-r--r--  2 kamimura  staff  0 May 20 12:27 temp.txt
-rw-r--r--  2 kamimura  staff  0 May 20 12:27 temp1.txt
$ ./sample290_6.pl temp.txt temp_dir
$ ls -l temp*.txt
-rw-r--r--  3 kamimura  staff  0 May 20 12:27 temp.txt
-rw-r--r--  3 kamimura  staff  0 May 20 12:27 temp1.txt
$ ls temp_dir/temp*.txt
temp_dir/temp.txt
$ ./sample290_6.pl temp.txt temp_dir/temp2.txt
$ ls -l temp*.txt temp_dir/temp*.txt
-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
-rw-r--r--  4 kamimura  staff  0 May 20 12:27 temp_dir/temp.txt
-rw-r--r--  4 kamimura  staff  0 May 20 12:27 temp_dir/temp2.txt
$ ./sample290_6.pl temp_dir/temp2.txt .
$ ls -l temp*.txt temp_dir/temp*.txt
-rw-r--r--  5 kamimura  staff  0 May 20 12:27 temp.txt
-rw-r--r--  5 kamimura  staff  0 May 20 12:27 temp1.txt
-rw-r--r--  5 kamimura  staff  0 May 20 12:27 temp2.txt
-rw-r--r--  5 kamimura  staff  0 May 20 12:27 temp_dir/temp.txt
-rw-r--r--  5 kamimura  staff  0 May 20 12:27 temp_dir/temp2.txt
$ ./sample290_6.pl temp_dir/temp2.txt temp3.txt
$ ls -l temp*.txt temp_dir/temp*.txt
-rw-r--r--  6 kamimura  staff  0 May 20 12:27 temp.txt
-rw-r--r--  6 kamimura  staff  0 May 20 12:27 temp1.txt
-rw-r--r--  6 kamimura  staff  0 May 20 12:27 temp2.txt
-rw-r--r--  6 kamimura  staff  0 May 20 12:27 temp3.txt
-rw-r--r--  6 kamimura  staff  0 May 20 12:27 temp_dir/temp.txt
-rw-r--r--  6 kamimura  staff  0 May 20 12:27 temp_dir/temp2.txt
$ ./sample290_6.pl ab cd
Can't link 'ab' to 'cd: No such file or directory at ./sample290_6.pl line 15.
$