绝对路径与相对路径祥解

    }
    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;
}