blocks|key|1543963|text|use+File::Spec;
File::Spec->rel2abs(+__FILE__+);|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1543964|http://perldoc.perl.org/File/Spec/Unix.html|unstyled|offset|length|1543965|entityMap|0|LINK|mutability|MUTABLE|url^0|0|0|17|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|Q|8|@]|9|@$G|R|H|S|1|T]]|A|$]]|$1|I|3|-4|5|F|7|U|8|@]|9|@]|A|$]]]|J|$K|$5|L|M|N|A|$O|E]]]]

<pre><code>use File::Spec;
File::Spec-&gt;rel2abs( __FILE__ );
</code></pre>
<a href="http://perldoc.perl.org/File/Spec/Unix.html" rel="nofollow noreferrer">http://perldoc.perl.org/File/Spec/Unix.html</a>

blocks|key|1543905|text|我想你要找的模块是FindBin：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1543906|#!/usr/bin/perl
use+FindBin;

$0+=+"stealth";
print+"The+actual+path+to+this+is:+$FindBin::Bin/$FindBin::Script\n";|code-block|syntax|javascript|1543907|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I think the module you're looking for is FindBin:

<pre><code>#!/usr/bin/perl
use FindBin;

$0 = "stealth";
print "The actual path to this is: $FindBin::Bin/$FindBin::Script\n";
</code></pre>

blocks|key|1758876|text|您可以使用FindBin、Cwd、File::Basename或它们的组合。它们都在Perl+IIRC的基础发行版中。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1758877|我以前用过Cwd：|1758878|Cwd：|1758879|use+Cwd+qw(abs_path);
my+$path+=+abs_path($0);
print+"$path\n";|code-block|syntax|javascript|1758880|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/~tty/kurila-1.13_0/lib/FindBin.pm|1|http://perldoc.perl.org/Cwd.html|2|http://perldoc.perl.org/File/Basename.html^0|5|7|0|D|3|1|H|E|2|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Y|8|@]|9|@$A|Z|B|10|1|11]|$A|12|B|13|1|14]|$A|15|B|16|1|17]]|C|$]]|$1|D|3|E|5|6|7|18|8|@]|9|@]|C|$]]|$1|F|3|G|5|6|7|19|8|@]|9|@]|C|$]]|$1|H|3|I|5|J|7|1A|8|@]|9|@]|C|$K|L]]|$1|M|3|-4|5|6|7|1B|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]|U|$5|P|Q|R|C|$S|V]]|W|$5|P|Q|R|C|$S|X]]]]

You could use <a href="http://search.cpan.org/~tty/kurila-1.13_0/lib/FindBin.pm" rel="noreferrer">FindBin</a>, <a href="http://perldoc.perl.org/Cwd.html" rel="noreferrer">Cwd</a>, <a href="http://perldoc.perl.org/File/Basename.html" rel="noreferrer">File::Basename</a>, or a combination of them. They're all in the base distribution of Perl IIRC.

I used Cwd in the past:

Cwd:

<pre><code>use Cwd qw(abs_path);
my $path = abs_path($0);
print "$path\n";
</code></pre>

blocks|key|1759068|text|获得$0或__FILE__的绝对路径就是您想要的。唯一的问题是，如果有人做了一个chdir()，并且$0是相对的--那么您需要获取BEGIN{}中的绝对路径，以防止任何意外。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1759069|FindBin试图做得更好，在$PATH中寻找与basename($0)匹配的东西，但有时这会产生非常令人惊讶的事情(特别是:当文件在cwd中“就在您的面前”时)。|1759070|File::Fu为此提供了File::Fu->program_name和File::Fu->program_dir。|1759071|entityMap^0|2|2|5|8|14|7|1E|2|1T|7|0|0|7|F|5|O|C|0|0|8|D|M|10|L|0^^$0|@$1|2|3|4|5|6|7|L|8|@$9|M|A|N|B|C]|$9|O|A|P|B|C]|$9|Q|A|R|B|C]|$9|S|A|T|B|C]|$9|U|A|V|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|W|8|@$9|X|A|Y|B|C]|$9|Z|A|10|B|C]|$9|11|A|12|B|C]]|D|@]|E|$]]|$1|H|3|I|5|6|7|13|8|@$9|14|A|15|B|C]|$9|16|A|17|B|C]|$9|18|A|19|B|C]]|D|@]|E|$]]|$1|J|3|-4|5|6|7|1A|8|@]|D|@]|E|$]]]|K|$]]

Getting the absolute path to <code>$0</code> or <code>__FILE__</code> is what you want. The only trouble is if someone did a <code>chdir()</code> and the <code>$0</code> was relative -- then you need to get the absolute path in a <code>BEGIN{}</code> to prevent any surprises.

<code>FindBin</code> tries to go one better and grovel around in the <code>$PATH</code> for something matching the <code>basename($0)</code>, but there are times when that does far-too-surprising things (specifically: when the file is "right in front of you" in the cwd.)

<code>File::Fu</code> has <code>File::Fu-&gt;program_name</code> and <code>File::Fu-&gt;program_dir</code> for this.

blocks|key|1759018|text|下面是一些简短的背景：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1759019|不幸的是，Unix+API没有为正在运行的程序提供可执行文件的完整路径。实际上，执行您的程序的程序可以在字段中提供它想要的任何内容，这通常会告诉您的程序它是什么。正如所有答案所指出的那样，有各种启发式方法可以找到可能的候选者。但是，除了搜索整个文件系统之外，没有什么是可以工作的，即使是在移动或删除可执行文件时也会失败。|1759020|但是您不需要Perl可执行文件，而是它正在执行的脚本。Perl需要知道脚本在哪里才能找到它。它将其存储在__FILE__中，而$0来自于Unix+API。这仍然可以是一个相对路径，所以请采纳Mark的建议，并使用File::Spec->rel2abs(+__FILE__+);将其规范化|offset|length|style|CODE|1759021|entityMap^0|0|0|1G|8|1R|2|2Y|W|0^^$0|@$1|2|3|4|5|6|7|L|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|M|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|N|8|@$F|O|G|P|H|I]|$F|Q|G|R|H|I]|$F|S|G|T|H|I]]|9|@]|A|$]]|$1|J|3|-4|5|6|7|U|8|@]|9|@]|A|$]]]|K|$]]

Some short background:

Unfortunately the Unix API doesn't provide a running program with the full path to the executable. In fact, the program executing yours can provide whatever it wants in the field that normally tells your program what it is. There are, as all the answers point out, various heuristics for finding likely candidates. But nothing short of searching the entire filesystem will always work, and even that will fail if the executable is moved or removed.

But you don't want the Perl executable, which is what's actually running, but the script it is executing. And Perl needs to know where the script is to find it. It stores this in <code>__FILE__</code>, while <code>$0</code> is from the Unix API. This can still be a relative path, so take Mark's suggestion and canonize it with <code>File::Spec-&gt;rel2abs( __FILE__ );</code>

blocks|key|1758792|text|您是否尝试过：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1758793|$ENV{'SCRIPT_NAME'}|code-block|syntax|javascript|1758794|或|1758795|use+FindBin+'$Bin';
print+"The+script+is+located+in+$Bin.\n";|1758796|这真的取决于它是如何被调用的，以及它是CGI还是从普通的shell运行，等等。|1758797|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Have you tried:

<pre><code>$ENV{'SCRIPT_NAME'}
</code></pre>

or

<pre><code>use FindBin '$Bin';
print "The script is located in $Bin.\n";
</code></pre>

It really depends on how it's being called and if it's CGI or being run from a normal shell, etc.

blocks|key|1759207|text|为了获得包含我的脚本的目录的路径，我使用了已经给出的答案的组合。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1759208|#!/usr/bin/perl
use+strict;
use+warnings;
use+File::Spec;
use+File::Basename;

my+$dir+=+dirname(File::Spec->rel2abs(__FILE__));|code-block|syntax|javascript|1759209|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

In order to get the path to the directory containing my script I used a combination of answers given already.

<pre><code>#!/usr/bin/perl
use strict;
use warnings;
use File::Spec;
use File::Basename;

my $dir = dirname(File::Spec-&gt;rel2abs(__FILE__));
</code></pre>

blocks|key|1544012|text|perlfaq8回答了一个与在$0上使用rel2abs()函数非常相似的问题。该函数可以在File::Spec中找到。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1544013|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/perlfaq8.html^0|F|2|K|9|0|8|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@$9|O|A|P|B|C]|$9|Q|A|R|B|C]]|D|@$9|S|A|T|1|U]]|E|$]]|$1|F|3|-4|5|6|7|V|8|@]|D|@]|E|$]]]|G|$H|$5|I|J|K|E|$L|M]]]]

<a href="http://perldoc.perl.org/perlfaq8.html" rel="nofollow noreferrer">perlfaq8</a> answers a very similar question with using the <code>rel2abs()</code> function on <code>$0</code>. That function can be found in File::Spec.

blocks|key|1544579|text|不需要使用外部模块，只需一行就可以获得文件名和相对路径。如果您正在使用模块，并且需要应用相对于脚本目录的路径，则相对路径就足够了。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1544580|$0+=~+m/(.%2B)[\/\\](.%2B)$/;
print+"full+path:+$1,+file+name:+$2\n";|code-block|syntax|javascript|1544581|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

There's no need to use external modules, with just one line you can have the file name and relative path. If you are using modules and need to apply a path relative to the script directory, the relative path is enough.

<pre><code>$0 =~ m/(.+)[\/\\](.+)$/;
print "full path: $1, file name: $2\n";
</code></pre>

blocks|key|1544185|text|你在找这个吗？：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1544186|my+$thisfile+=+$1+if+$0+=~
/\\([%5E\\]*)$%7C\/([%5E\/]*)$/;

print+"You+are+running+$thisfile
now.\n";|code-block|syntax|javascript|1544187|输出将如下所示：|1544188|You+are+running+MyFileName.pl+now.|1544189|它可以在Windows和Unix上运行。|1544190|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Are you looking for this?:

<pre><code>my $thisfile = $1 if $0 =~
/\\([^\\]*)$|\/([^\/]*)$/;

print "You are running $thisfile
now.\n";
</code></pre>

The output will look like this:

<pre><code>You are running MyFileName.pl now.
</code></pre>

It works on both Windows and Unix.

blocks|key|1759153|text|#!/usr/bin/perl+-w
use+strict;


my+$path+=+$0;
$path+=~+s/\.\///g;
if+($path+=~+/\//){
++if+($path+=~+/%5E\//){
++++$path+=~+/%5E((\/[%5E\/]%2B){1,}\/)[%5E\/]%2B$/;
++++$path+=+$1;
++++}
++else+{
++++$path+=~+/%5E(([%5E\/]%2B\/){1,})[%5E\/]%2B$/;
++++my+$path_b+=+$1;
++++my+$path_a+=+`pwd`;
++++chop($path_a);
++++$path+=+$path_a."/".$path_b;
++++}
++}
else{
++$path+=+`pwd`;
++chop($path);
++$path.="/";
++}
$path+=~+s/\/\//\//g;



print+"\n$path\n";|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1759154|:DD|unstyled|1759155|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>#!/usr/bin/perl -w
use strict;


my $path = $0;
$path =~ s/\.\///g;
if ($path =~ /\//){
 if ($path =~ /^\//){
 $path =~ /^((\/[^\/]+){1,}\/)[^\/]+$/;
 $path = $1;
 }
 else {
 $path =~ /^(([^\/]+\/){1,})[^\/]+$/;
 my $path_b = $1;
 my $path_a = `pwd`;
 chop($path_a);
 $path = $path_a."/".$path_b;
 }
 }
else{
 $path = `pwd`;
 chop($path);
 $path.="/";
 }
$path =~ s/\/\//\//g;



print "\n$path\n";
</code></pre>

:DD

blocks|key|1759143|text|use+strict+;+use+warnings+;+use+Cwd+'abs_path';
++++sub+ResolveMyProductBaseDir+{+

++++++++#+Start+-+Resolve+the+ProductBaseDir
++++++++#resolve+the+run+dir+where+this+scripts+is+placed
++++++++my+$ScriptAbsolutPath+=+abs_path($0)+;+
++++++++#debug+print+"\$ScriptAbsolutPath+is+$ScriptAbsolutPath+\n"+;
++++++++$ScriptAbsolutPath+=~+m/%5E(.*)(\\%7C\/)(.*)\.([a-z]*)/;+
++++++++$RunDir+=+$1+;+
++++++++#debug+print+"\$1+is+$1+\n"+;
++++++++#change+the+\'s+to+/'s+if+we+are+on+Windows
++++++++$RunDir+=~s/\\/\//gi+;+
++++++++my+@DirParts+=+split+('/'+,+$RunDir)+;+
++++++++for+(my+$count=0;+$count+<+4;+$count%2B%2B)+{+++pop+@DirParts+;+++++}
++++++++my+$ProductBaseDir+=+join+(+'/'+,+@DirParts+)+;+
++++++++#+Stop+-+Resolve+the+ProductBaseDir
++++++++#debug+print+"ResolveMyProductBaseDir+$ProductBaseDir+is+$ProductBaseDir+\n"+;+
++++++++return+$ProductBaseDir+;+
++++}+#eof+sub+|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1759144|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>use strict ; use warnings ; use Cwd 'abs_path';
 sub ResolveMyProductBaseDir { 

 # Start - Resolve the ProductBaseDir
 #resolve the run dir where this scripts is placed
 my $ScriptAbsolutPath = abs_path($0) ; 
 #debug print "\$ScriptAbsolutPath is $ScriptAbsolutPath \n" ;
 $ScriptAbsolutPath =~ m/^(.*)(\\|\/)(.*)\.([a-z]*)/; 
 $RunDir = $1 ; 
 #debug print "\$1 is $1 \n" ;
 #change the \'s to /'s if we are on Windows
 $RunDir =~s/\\/\//gi ; 
 my @DirParts = split ('/' , $RunDir) ; 
 for (my $count=0; $count &lt; 4; $count++) { pop @DirParts ; }
 my $ProductBaseDir = join ( '/' , @DirParts ) ; 
 # Stop - Resolve the ProductBaseDir
 #debug print "ResolveMyProductBaseDir $ProductBaseDir is $ProductBaseDir \n" ; 
 return $ProductBaseDir ; 
 } #eof sub 
</code></pre>

blocks|key|1544428|text|__FILE__的问题在于，它将打印核心模块的".pm“路径，而不一定是正在运行的".cgi”或".pl“脚本路径。我想这取决于你的目标是什么。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1544429|在我看来，只需要为mod_perl更新Cwd即可。这是我的建议：|1544430|my+$path;

use+File::Basename;
my+$file+=+basename($ENV{SCRIPT_NAME});

if+(exists+$ENV{MOD_PERL}+&&+($ENV{MOD_PERL_API_VERSION}+<+2))+{
++if+($%5EO+=~/Win/)+{
++++$path+=+`echo+%25cd%25`;
++++chop+$path;
++++$path+=~+s!\\!/!g;
++++$path+.=+$ENV{SCRIPT_NAME};
++}
++else+{
++++$path+=+`pwd`;
++++$path+.=+"/$file";
++}
++#+add+support+for+other+operating+systems
}
else+{
++require+Cwd;
++$path+=+Cwd::getcwd()."/$file";
}
print+$path;|code-block|syntax|javascript|1544431|请添加任何建议。|1544432|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/~smueller/PathTools-3.40/^0|0|8|0|J|3|J|3|0|0|0|0^^$0|@$1|2|3|4|5|6|7|W|8|@$9|X|A|Y|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|Z|8|@$9|10|A|11|B|C]]|D|@$9|12|A|13|1|14]]|E|$]]|$1|H|3|I|5|J|7|15|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|16|8|@]|D|@]|E|$]]|$1|O|3|-4|5|6|7|17|8|@]|D|@]|E|$]]]|P|$Q|$5|R|S|T|E|$U|V]]]]

The problem with <code>__FILE__</code> is that it will print the core module ".pm" path not necessarily the ".cgi" or ".pl" script path that is running. I guess it depends on what your goal is.

It seems to me that <a href="http://search.cpan.org/~smueller/PathTools-3.40/" rel="nofollow"><code>Cwd</code></a> just needs to be updated for mod_perl. Here is my suggestion:

<pre><code>my $path;

use File::Basename;
my $file = basename($ENV{SCRIPT_NAME});

if (exists $ENV{MOD_PERL} &amp;&amp; ($ENV{MOD_PERL_API_VERSION} &lt; 2)) {
 if ($^O =~/Win/) {
 $path = `echo %cd%`;
 chop $path;
 $path =~ s!\\!/!g;
 $path .= $ENV{SCRIPT_NAME};
 }
 else {
 $path = `pwd`;
 $path .= "/$file";
 }
 # add support for other operating systems
}
else {
 require Cwd;
 $path = Cwd::getcwd()."/$file";
}
print $path;
</code></pre>

Please add any suggestions.

blocks|key|1544479|text|没有任何外部模块，对shell有效，即使使用‘../’也能很好地工作：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1544480|my+$self+=+`pwd`;
chomp+$self;
$self+.='/'.$1+if+$0+=~/([%5E\/]*)$/;+#keep+the+filename+only
print+"self=$self\n";|code-block|syntax|javascript|1544481|测试：|1544482|$+/my/temp/Host$+perl+./host-mod.pl+
self=/my/temp/Host/host-mod.pl

$+/my/temp/Host$+./host-mod.pl+
self=/my/temp/Host/host-mod.pl

$+/my/temp/Host$+../Host/./host-mod.pl+
self=/my/temp/Host/host-mod.pl|1544483|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Without any external modules, valid for shell, works well even with '../':

<pre><code>my $self = `pwd`;
chomp $self;
$self .='/'.$1 if $0 =~/([^\/]*)$/; #keep the filename only
print "self=$self\n";
</code></pre>

test:

<pre><code>$ /my/temp/Host$ perl ./host-mod.pl 
self=/my/temp/Host/host-mod.pl

$ /my/temp/Host$ ./host-mod.pl 
self=/my/temp/Host/host-mod.pl

$ /my/temp/Host$ ../Host/./host-mod.pl 
self=/my/temp/Host/host-mod.pl
</code></pre>

blocks|key|1759415|text|仅仅使用dirname(__FILE__)的问题是它不遵循符号链接。我必须在我的脚本中使用它来跟随符号链接到实际的文件位置。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1759416|use+File::Basename;
my+$script_dir+=+undef;
if(-l+__FILE__)+{
++$script_dir+=+dirname(readlink(__FILE__));
}
else+{
++$script_dir+=+dirname(__FILE__);
}|code-block|syntax|javascript|1759417|entityMap^0|4|H|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

The problem with just using <code>dirname(__FILE__)</code> is that it doesn't follow symlinks. I had to use this for my script to follow the symlink to the actual file location.

<pre><code>use File::Basename;
my $script_dir = undef;
if(-l __FILE__) {
 $script_dir = dirname(readlink(__FILE__));
}
else {
 $script_dir = dirname(__FILE__);
}
</code></pre>

blocks|key|1759563|text|所有与库无关的解决方案实际上都不能通过几种方式来编写路径(想想../或/bla/x/../bin/./x/../等。我的解决方案如下所示。我有一个怪癖:我根本不知道为什么我必须运行两次替换程序。如果不这样做，我会得到一个虚假的"./“或"../”。除此之外，它对我来说似乎相当健壮。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1759564|++my+$callpath+=+$0;
++my+$pwd+=+`pwd`;+chomp($pwd);

++#+if+called+relative+->+add+pwd+in+front
++if+($callpath+!~+/%5E\//)+{+$callpath+=+$pwd."/".$callpath;+}++

++#+do+the+cleanup
++$callpath+=~+s!%5E\./!!;++++++++++++++++++++++++++#+starts+with+./+->+drop
++$callpath+=~+s!/\./!/!g;++++++++++++++++++++++++#+/./+->+/
++$callpath+=~+s!/\./!/!g;++++++++++++++++++++++++#+/./+->+/++++++++(twice)

++$callpath+=~+s!/[%5E/]%2B/\.\./!/!g;++++++++++++++++#+/xxx/../+->+/
++$callpath+=~+s!/[%5E/]%2B/\.\./!/!g;++++++++++++++++#+/xxx/../+->+/+++(twice)

++my+$calldir+=+$callpath;
++$calldir+=~+s/(.*)\/([%5E\/]%2B)/$1/;|code-block|syntax|javascript|1759565|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

All the library-free solutions don't actually work for more than a few ways to write a path (think ../ or /bla/x/../bin/./x/../ etc. My solution looks like below. I have one quirk: I don't have the faintest idea why I have to run the replacements twice. If I don't, I get a spurious "./" or "../". Apart from that, it seems quite robust to me.

<pre><code> my $callpath = $0;
 my $pwd = `pwd`; chomp($pwd);

 # if called relative -&gt; add pwd in front
 if ($callpath !~ /^\//) { $callpath = $pwd."/".$callpath; } 

 # do the cleanup
 $callpath =~ s!^\./!!; # starts with ./ -&gt; drop
 $callpath =~ s!/\./!/!g; # /./ -&gt; /
 $callpath =~ s!/\./!/!g; # /./ -&gt; / (twice)

 $callpath =~ s!/[^/]+/\.\./!/!g; # /xxx/../ -&gt; /
 $callpath =~ s!/[^/]+/\.\./!/!g; # /xxx/../ -&gt; / (twice)

 my $calldir = $callpath;
 $calldir =~ s/(.*)\/([^\/]+)/$1/;
</code></pre>

blocks|key|1544706|text|没有一个“最佳”答案对我来说是正确的。使用FindBin+'$Bin‘或Cwd的问题是，它们返回的绝对路径解决了所有符号链接。在我的例子中，我需要具有符号链接的确切路径-与返回Unix命令"pwd“而不是"pwd+-P”相同。以下函数提供了解决方案：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1544707|sub+get_script_full_path+{
++++use+File::Basename;
++++use+File::Spec;
++++use+Cwd+qw(chdir+cwd);
++++my+$curr_dir+=+cwd();
++++chdir(dirname($0));
++++my+$dir+=+$ENV{PWD};
++++chdir(+$curr_dir);
++++return+File::Spec->catfile($dir,+basename($0));
}|code-block|syntax|javascript|1544708|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

None of the "top" answers were right for me. The problem with using FindBin '$Bin' or Cwd is that they return absolute path with all symbolic links resolved. In my case I needed the exact path with symbolic links present - the same as returns Unix command "pwd" and not "pwd -P". The following function provides the solution:

<pre><code>sub get_script_full_path {
 use File::Basename;
 use File::Spec;
 use Cwd qw(chdir cwd);
 my $curr_dir = cwd();
 chdir(dirname($0));
 my $dir = $ENV{PWD};
 chdir( $curr_dir);
 return File::Spec-&gt;catfile($dir, basename($0));
}
</code></pre>

blocks|key|1759650|text|在Windows上，同时使用dirname和abs_path对我来说效果最好。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1759651|use+File::Basename;
use+Cwd+qw(abs_path);

#+absolute+path+of+the+directory+containing+the+executing+script
my+$abs_dirname+=+dirname(abs_path($0));
print+"\ndirname(abs_path(\$0))+->+$abs_dirname\n";|code-block|syntax|javascript|1759652|原因如下：|1759653|#+this+gives+the+answer+I+want+in+relative+path+form,+not+absolute
my+$rel_dirname+=+dirname(__FILE__);+
print+"dirname(__FILE__)+->+$rel_dirname\n";+

#+this+gives+the+slightly+wrong+answer,+but+in+the+form+I+want+
my+$full_filepath+=+abs_path($0);
print+"abs_path(\$0)+->+$full_filepath\n";|1759654|entityMap^0|E|7|M|8|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]|$9|T|A|U|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|V|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|W|8|@]|D|@]|E|$]]|$1|M|3|N|5|H|7|X|8|@]|D|@]|E|$I|J]]|$1|O|3|-4|5|6|7|Y|8|@]|D|@]|E|$]]]|P|$]]

On Windows using <code>dirname</code> and <code>abs_path</code> together worked best for me.

<pre><code>use File::Basename;
use Cwd qw(abs_path);

# absolute path of the directory containing the executing script
my $abs_dirname = dirname(abs_path($0));
print "\ndirname(abs_path(\$0)) -&gt; $abs_dirname\n";
</code></pre>

here's why:

<pre><code># this gives the answer I want in relative path form, not absolute
my $rel_dirname = dirname(__FILE__); 
print "dirname(__FILE__) -&gt; $rel_dirname\n"; 

# this gives the slightly wrong answer, but in the form I want 
my $full_filepath = abs_path($0);
print "abs_path(\$0) -&gt; $full_filepath\n";
</code></pre>

blocks|key|1544768|text|use+File::Basename;
use+Cwd+'abs_path';
print+dirname(abs_path(__FILE__))+;|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1544769|Drew's+answer给了我：|unstyled|offset|length|1544770|“”|1544771|$+cat+>testdirname
use+File::Basename;
print+dirname(__FILE__);
$+perl+testdirname
.$+perl+-v

This+is+perl+5,+version+28,+subversion+1+(v5.28.1)+built+for+x86_64-linux-gnu-thread-multi][1]|1544772|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/a/90721/871821^0|0|0|D|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|V|8|@]|9|@$G|W|H|X|1|Y]]|A|$]]|$1|I|3|J|5|F|7|Z|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|10|8|@]|9|@]|A|$B|C]]|$1|M|3|-4|5|F|7|11|8|@]|9|@]|A|$]]]|N|$O|$5|P|Q|R|A|$S|T]]]]

<pre><code>use File::Basename;
use Cwd 'abs_path';
print dirname(abs_path(__FILE__)) ;
</code></pre>
<a href="https://stackoverflow.com/a/90721/871821">Drew's answer</a> gave me:
'.'
<pre><code>$ cat &gt;testdirname
use File::Basename;
print dirname(__FILE__);
$ perl testdirname
.$ perl -v

This is perl 5, version 28, subversion 1 (v5.28.1) built for x86_64-linux-gnu-thread-multi][1]
</code></pre>

blocks|key|1759262|text|$%5EX有什么问题？|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1759263|#!/usr/bin/env+perl 
print+"This+is+executed+by+$%5EX\n";|code-block|syntax|javascript|1759264|将为您提供所使用的Perl二进制文件的完整路径。|1759265|平均|1759266|entityMap^0|0|3|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|T|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|U|8|@]|D|@]|E|$]]|$1|M|3|N|5|6|7|V|8|@]|D|@]|E|$]]|$1|O|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|P|$]]

What's wrong with <code>$^X</code> ?

<pre><code>#!/usr/bin/env perl&lt;br&gt;
print "This is executed by $^X\n";
</code></pre>

Would give you the full path to the Perl binary being used.

Evert

blocks|key|1543815|text|在*nix上，您可能有"whereis“命令，该命令搜索您的$PATH以查找具有给定名称的二进制文件。如果$0不包含完整的路径名，运行where+is+$scriptname并将结果保存到一个变量中应该会告诉您脚本所在的位置。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1543816|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|D|8|@]|9|@]|A|$]]|$1|B|3|-4|5|6|7|E|8|@]|9|@]|A|$]]]|C|$]]

On *nix, you likely have the "whereis" command, which searches your $PATH looking for a binary with a given name. If $0 doesn't contain the full path name, running whereis $scriptname and saving the result into a variable should tell you where the script is located.

I have Perl script and need to determine the full path and filename of the script during execution. I discovered that depending on how you call the script <code>$0</code> varies and sometimes contains the <code>fullpath+filename</code> and sometimes just <code>filename</code>. Because the working directory can vary as well I can't think of a way to reliably get the <code>fullpath+filename</code> of the script.

Anyone got a solution?

How do I get the full path to a Perl script that is executing?

我有Perl脚本，需要在执行期间确定脚本的完整路径和文件名。我发现，根据脚本的调用方式，$0会有所不同，有时包含fullpath+filename，有时仅包含filename。因为工作目录也可能不同，所以我想不出一种可靠的方法来获取脚本的fullpath+filename。有人有解决方案吗？

问如何获得正在执行的Perl脚本的完整路径？
EN

回答 21

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何获得正在执行的Perl脚本的完整路径？EN

回答 21

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何获得正在执行的Perl脚本的完整路径？
EN