[分享]测试绝对路径

cnangel

# 测试绝对路径

1. sub mypath {
2.    local $temp;
3.    if ($ENV{'SERVER_SOFTWARE'} =~ /apache/i) {
4.        $temp=$ENV{'SCRIPT_FILENAME'};
5.        $temp=~ s/\\/\//g if ($temp=~/\\/);
6.        $mypath=substr($temp,0,rindex($temp,"/"));
7.    }
8.    else {
9.        $temp=__FILE__;
10.        $temp=~ s/\\/\//g if ($temp=~/\\/);
11.        if ($temp) {
12.            $mypath=substr($temp,0,rindex($temp,"/"));
13.        }
14.        else {
15.            $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
16.            $mypath=~ s/\\/\//g;
17.        }
18.    }
19.    return $mypath;
20. }

复制代码