如何从相对路径获取Perl程序的绝对路径？

发布时间：2020-12-16 06:10:02 所属栏目：大数据来源：网络整理

导读：我需要找到我正在运行的Perl脚本的完整路径,即对于?/ dir / my.pl我需要它为“/home/user/dir/my.pl”. $0会给我“?/ dir / my.pl”. for ./my.pl我仍然需要“/home/user/dir/my.pl” 等等谢谢！解决方法使用 FindBin模块： $cat /tmp/foo/bar/baz/quux/p

我需要找到我正在运行的Perl脚本的完整路径,即

>对于?/ dir / my.pl我需要它为“/home/user/dir/my.pl”. $0会给我“?/ dir / my.pl”.
> for ./my.pl我仍然需要“/home/user/dir/my.pl”

等等谢谢！

解决方法

使用 FindBin模块：

$cat /tmp/foo/bar/baz/quux/prog
#! /usr/bin/perl

use FindBin;

print "$FindBin::Bin/$FindBin::Scriptn";

$PATH=/tmp/foo/bar/baz/quux prog
/tmp/foo/bar/baz/quux/prog

$cd /tmp/foo/bar/baz/quux

$./prog 
/tmp/foo/bar/baz/quux/prog

（编辑：李大同）

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