perl symlink 相対パス

2014年6月24日

方法：

File::Specを利用して相対パスを解決

参考コード：

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