返回列表 回复 发帖

[分享]测试绝对路径

# 测试绝对路径
  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. }
复制代码

                     我是一个呼吸着现在的空气而生活在过去的人
               这样的注定孤独,孤独的身处闹市却犹如置身于荒漠
                                     我已习惯了孤独,爱上孤独
                                 他让我看清了自我,还原了自我
                             让我再静静的沉思中得到快乐和满足
                                   再孤独的世界里我一遍又一遍
                                   不厌其烦的改写着自己的过去
                                             延伸到现在与未来
                                       然而那只是泡沫般的美梦
                                 产生的时刻又伴随着破灭的到来
                         在灰飞烟灭的瞬间我看到的是过程的美丽
                                      而不是结果的悲哀。。。
返回列表