标题:
[分享]测试绝对路径
[打印本页]
作者:
cnangel
时间:
2003-12-11 10:33
标题:
[分享]测试绝对路径
# 测试绝对路径
sub mypath {
local $temp;
if ($ENV{'SERVER_SOFTWARE'} =~ /apache/i) {
$temp=$ENV{'SCRIPT_FILENAME'};
$temp=~ s/\\/\//g if ($temp=~/\\/);
$mypath=substr($temp,0,rindex($temp,"/"));
}
else {
$temp=__FILE__;
$temp=~ s/\\/\//g if ($temp=~/\\/);
if ($temp) {
$mypath=substr($temp,0,rindex($temp,"/"));
}
else {
$mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
$mypath=~ s/\\/\//g;
}
}
return $mypath;
}
复制代码
欢迎光临 星星博客 (http://commerce.huhoo.net/)
Powered by Discuz! 7.0.0