怎么获取程序自身所在的全路径？

wibxy

RT。

[ 本帖最后由 wibxy 于 2007-12-5 16:42 编辑 ]

flw

有 /proc 可用时，/proc 最简单。

flw

给大家一段伪代码：

1. sub init
   
2. {
   
3. *Dir = \$Bin;
   
4. *RealDir = \$RealBin;
   
5. 
   
6. if($0 eq '-e' || $0 eq '-')
   
7.   {
   
8.    # perl invoked with -e or script is on C<STDIN>
   
9. 
   
10.    $Script = $RealScript = $0;
    
11.    $Bin    = $RealBin    = getcwd();
    
12.   }
    
13. else
    
14.   {
    
15.    my $script = $0;
    
16. 
    
17.    if ($^O eq 'VMS')
    
18.     {
    
19.      ($Bin,$Script) = VMS::Filespec::rmsexpand($0) =~ /(.*\])(.*)/s;
    
20.      ($RealBin,$RealScript) = ($Bin,$Script);
    
21.     }
    
22.    else
    
23.     {
    
24.      my $dosish = ($^O eq 'MSWin32' or $^O eq 'os2');
    
25.      unless(($script =~ m#/# || ($dosish && $script =~ m#\\#))
    
26.             && -f $script)
    
27.       {
    
28.        my $dir;
    
29.        foreach $dir (File::Spec->path)
    
30.         {
    
31.         my $scr = File::Spec->catfile($dir, $script);
    
32.         if(-r $scr && (!$dosish || -x _))
    
33.          {
    
34.           $script = $scr;
    
35. 
    
36.           if (-f $0)
    
37.            {
    
38.             # $script has been found via PATH but perl could have
    
39.             # been invoked as 'perl file'. Do a dumb check to see
    
40.             # if $script is a perl program, if not then $script = $0
    
41.             #
    
42.             # well we actually only check that it is an ASCII file
    
43.             # we know its executable so it is probably a script
    
44.             # of some sort.
    
45. 
    
46.             $script = $0 unless(-T $script);
    
47.            }
    
48.           last;
    
49.          }
    
50.        }
    
51.      }
    
52. 
    
53.      croak("Cannot find current script '$0'") unless(-f $script);
    
54. 
    
55.      # Ensure $script contains the complete path incase we C<chdir>
    
56. 
    
57.      $script = File::Spec->catfile(getcwd(), $script)
    
58.        unless File::Spec->file_name_is_absolute($script);
    
59. 
    
60.      ($Script,$Bin) = fileparse($script);
    
61. 
    
62.      # Resolve $script if it is a link
    
63.      while(1)
    
64.       {
    
65.        my $linktext = readlink($script);
    
66. 
    
67.        ($RealScript,$RealBin) = fileparse($script);
    
68.        last unless defined $linktext;
    
69. 
    
70.        $script = (File::Spec->file_name_is_absolute($linktext))
    
71.                   ? $linktext
    
72.                   : File::Spec->catfile($RealBin, $linktext);
    
73.       }
    
74. 
    
75.      # Get absolute paths to directories
    
76.      $Bin     = abs_path($Bin)    unless (!$Bin || File::Spec->file_name_is_absolute($Bin));
    
77.      $RealBin = abs_path($RealBin) unless (!$RealBin || File::Spec->file_name_is_absolute($RealBin));
    
78.     }
    
79.   }
    
80. }

复制代码

RobinHoo

以前讨论过，确切地将没办法

MMMIX

没有什么可移植的方式，只能是在程序的开始从 argv[0] 反推，或者如果可以，直接读 /proc 下的相关文件。

ivhb

原帖由 pandorally 于 2007-12-5 17:03 发表

加上argv[0]，需区分判断绝对路径。

1, 如果argv[0]里面，第一个是字符是/,则argv[0]就是。否则，如果含有/，但不在起始位置。
则getcwd/argv[0]  。这里即便有了../xx/../xx/../xx  这样无用的重复，结论还是对的。当然。要是你有兴趣
，可以简单的处理一下。遇到./分量，就消去该分量，遇到../就回退，消去前一个分量...
2. 其他情况，还是要从PATH环境变量入手，依次查找，找到第一个匹配argv[0]的文件。

如果是windows系统，就不知道是不是适用了。

[ 本帖最后由 ivhb 于 2007-12-5 18:04 编辑 ]

bluster

比较笨的方法,在main开始的时候用argv[0]找'..'目录,一直找到'/'

pandorally

原帖由 一路征程一路笑 于 2007-12-5 16:18 发表
char *getcwd(char *buf,size_t size);  程序目前的工作目录

加上argv[0]，需区分判断绝对路径。

hellomotor

比较传统的做法是指定一个环境变量为程序路径