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

開発環境

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

6.

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

コード(TextWrangler)

#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
use File::Spec;

my($old,$new) = @ARGV;
if(-d $new){
  my $basename = basename $old;
  $new = File::Spec->catfile($new,$basename);
}
link $old,$new or die "cannot link $old to $new: $!n";

入出力結果(Terminal)

$ ./sample.pl test link_test
$ ls -l *test
-rw-r--r--  3 kamimura  staff  330  3 18 16:09 link_test
-rw-r--r--  3 kamimura  staff  330  3 18 16:09 test
$ ls sample*
sample.pl  sample_text.bak  sample_text.out.bak
sample.pl.bak  sample_text.out

sample:
sample_folder  sample_folder copy 2 sample_folder copy 4
sample_folder copy sample_folder copy 3

sample_folder:
sample1.bak
$ ./sample.pl test sample_folder
$ ls sample_folder/*
sample_folder/sample1.bak sample_folder/test
$ ls -l sample_folder/test
-rw-r--r--  4 kamimura  staff  330  3 18 16:09 sample_folder/test
$