モジュールFile::Specメソッドでperl symlink 相対パス問題を解決

2014年4月1日

サンプルコード：
my $sym_file = '/v/global/use/a/file.csv’;
my $file = '/v/gobal/use/a/file_1_4_2014.csv’; ##存在ファイル
my $path = '/v/global/use/a/’;
symlink $file，$sym_file; ## file.csv -> /v/gobal/use/a/file_1_4_2014.csv
my $rel_path = File::Spec->abs2rel($file, $path); ##$pathは相対パス
symlink $rel_path, $sym_file; ## file.csv -> file_1_4_2014.csv

絶対パスsymlinkがいくつ弱点がありますから、モジュールFile::Spec仕様の方法で相対パスを解決します