在perl脚本里能有函数返回当前目录名吗

liluo

一个perl脚本执行的时候想调用当前目录名称，可以吗？

apile

可以....
$dir = `pwd`;
就可以在unix like 環境下取得目前目錄...
windows不熟...

tsingson

当前目录？

如果是 CGI 请用这个吧

$ENV{'SCRIPT_FILENAME'}

如果不是，用这个吧

use Cwd;

print getcwd();

关于目录操作更多信息，请看 Cwd 模块的说明吧

tsingson

对了，从通用性来说，用后面一个都是可以的，
Cwd 是内置模块

liluo

就是这个东西

\\szccsvr\triggers\sit-tool\access_control.pl^M

是用$0从windows平台得到的，要从这段字符里面得到sit-tool，烦死了，因为\t总是被先转义，大侠帮忙啊。

apile

$abc ='\\szccsvr\triggers\sit-tool\access_control.pl^M ';

$abc =~m/.*\\(.*)\\.*/;
$1 is what you want...