perl符号链接路径

Question

我的脚本是/a/b/c/a.pl。但是我使用/a/symlink/c/a.pl来访问它。当我使用符号链接路径运行脚本时，如何读取路径？

• 当我使用/a/b/c/a.pl时，我应该/a/b/c
• 当我使用/a/sl/c/a.pl时，我应该/a/sl/c

Answer 1

我不确定你在问什么，但FindBin可能会做你想要的。请参阅perldoc FindBin并阅读$Bin和$RealBin。

如果FindBin不是您想要的，请尝试：

#!/usr/bin/env perl

use strict;
use warnings;

use Cwd;
use File::Basename;

my $i_am_at = dirname( $0 );
if( $i_am_at eq '.' ){
  $i_am_at = cwd();
}
print "I am at $i_am_at\n";

Answer 2

认为$0是您追求的变量。

Answer 3

至少对于* nix系统，您可以使用$ENV{PWD}或`pwd`。