perl symlink 相对路径

清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>

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