プログラミング学習の記録 695.2 13章(ディレクトリ操作)の練習問題7 『初めてのPerl 第5版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

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

 

7.

やり方の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 $symlink = $ARGV[0] eq "-s"; shift if $symlink; my $old_name = shift; my $new_name = shift; if (-d $new_name){ my $basename = basename $old_name; $new_name = File::Spec->catfile($new_name, $basename); } if ($symlink){ symlink $old_name, $new_name or die "can't symlink $old_name to $new_name: $!\n"; } else { link $old_name, $new_name or die "can't hardlink $old_name to $new_name: $!\n"; }

入出力結果(Terminal)

$ ls perl_program sample1 sample_folder $ ./perl_program sample1 sample2 $ ls perl_program sample1 sample2 sample_folder $ ./perl_program sample1 ./sample_folder/ $ ./perl_program sample1 ./sample_folder/sample3 $ ls perl_program sample1 sample2 sample_folder $ cd sample_folder $ ls sample1 sample3

ファイルの内容(sample1, sample2, sample1, sample3ともに同じファイル)

sample1

シンボリックリンクについてはまだよく理解できてないかも。。