perl symlink 相对路径

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!