• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

绝对路径与相对路径祥解

新手在安装
perl 程序的时候，对这绝对路径和相对路径常常搞不清楚，不知道如何设置。希望看完本文后，能让你们对此不再糊涂。

 

1. 什么是绝对路径 ？什么是绝对路径的相对表示？

　　绝对路径就是你的主页上的文件或目录在硬盘上真正的路径，比如，你的
perl 程序是存放在 c:/apache/cgi-bin 下的，那么 c:/apache/cgi-bin
就是 cgi-bin 目录的绝对路径(如果你不清楚目录的绝对路径，可以问你主页提供商，也可以用最后的程序自己来检测)。

　　绝对路径的相对表示其实很好理解，假设你的 perl 程序是放在
c:/apache/cgi-bin 下的，如果你要表示这个目录的绝对路径，除了上面说的
c:/apache/cgi-bin 外，你还可以用 . 来表示，因为你的程序就在当前目录下的。其实这个问题和
dos 下的 cd 命令类似的，你如果在 c:windowssystem 目录下，现在要转换到
c:windows 下，那么你可以用绝对路径命令：cd c:windows，也可以用绝对路径的相对表示命令：cd
..，你现在理解了吗？
　　 要注意的是，如果你用的是
pws 或 iis web 服务器，那么路径必须用绝对路径来表示，而不能用绝对路径的相对表示，千万要注意了!

 

2. 什么是相对路径？什么是 url
相对路径？
　　 这两种说法实际上表达的意思是一样的。比如，你的
perl 程序 url 是 http://www.cgier.net/cgi-bin/test.cgi，调用图片
url 是 /showimg.asp?p=/2006-3-29/24916gifatest.gif，如果你要在你的程序中表示此图片的相对路径，那么可以写成
/showimg.asp?p=/2006-3-29/24916gifatest.gif，或者是 /gif/test.gif
。说白了，相对路径其实就可以理解为 url。

 

3. 绝对路径如何检测？
　　 运行如下子程序，返回变量
$mypath 的值就是此 perl 程序当前所在目录的绝对路径。

sub mypath
{
local
$temp;
$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;
}

 

4. 相对路径如何检测？

　　运行如下子程序，返回变量 $myurl 的值就是此 perl
程序当前所在目录的相对路径。
sub myurl
{

local $server_port,$fullurl;

$server_port = ":$env{'server_port'}"
if ($env{'server_port'} ne '80');
$fullurl
= "http://$env{'server_name'}$server_port$env{'script_name'}";

$myurl =
substr($fullurl,0,rindex($fullurl,"/"));

return $myurl;
}

　　

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范