请问如何用perl获取系统目录

请问如何用perl获取系统目录

请问如何用perl获取系统目录
请问例如系统目录是c:\winnt\system32,用perl如何获取呢?谢谢
试试--print "$ENV{syst.
试试
print "$ENV{systemroot}\\system32\n"
查看一下在环境变量里有没.
查看一下在环境变量里有没有设置这么样的一个变量.
win2000,2003一般都是用WINDIR来表示,即$ENV{'WINDIR'}里面的内容就是Windows目录,在上面提到的两个系统会分别表示为
X:\winnt
X:\windows
你再用楼上的方法,加上system32咯.
$ENV{systemroot}和$ENV{'.
$ENV{systemroot}和$ENV{'WINDIR'}一样的,不知MS为什么这样做
推荐用 systemroot。--w.
推荐用 systemroot。
windir 只不过是一个普通的环境变量,

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\windir
处定义,
因此它的值可能会不正确。
但是 systemroot 的值一定正确,只要你的 windows 运行正常。
它的值在
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRoot
这里定义