chdir一个问题

nfwolf

print $Bin;
#$dir =~ s/\//\\/g;
$dir ='D:\Elastos21';
#print $DEL[0];       
chdir ('$dir') || die "ERROR:CHDIR FAIELD";

想从当前工作目录到'D:\Elastos21'，为什么总是失败呢？

cobrawgl

你加上个  $! 看看哪里出错了啊

churchmice

'$dir' ===> $dir
win下没有怎么写过perl的程序

nfwolf

不行，还是失败！

cobrawgl

原帖由 churchmice 于 2008-4-11 16:35 发表
'$dir' ===> $dir
win下没有怎么写过perl的程序

对对，应该是 chdir($dir) 不用加上 ' ' 。

nfwolf

早试了，不行

cobrawgl

你改成这样

chdir ($dir) || die "ERROR: $!\n";

然后再把错误信息发出来看看

nfwolf

No such file or directory at test.pl line 26
实际上是存在D:\Elastos21这个文件夹的

nfwolf

原帖由 churchmice 于 2008-4-11 16:35 发表
'$dir' ===> $dir
win下没有怎么写过perl的程序

这样写，程序都没有反应

cobrawgl

原帖由 nfwolf 于 2008-4-11 16:54 发表
No such file or directory at test.pl line 26
实际上是存在D:\Elastos21这个文件夹的

你确认吗？那就不知道哪里的问题了。

我刚才试了一下，没问题啊


my $dir = 'd:\ebooks';

chdir $dir or die "error: $!\n";

print "$dir change ok!\n";

-------------------

>perl -w test.pl
d:\ebooks change ok!
>Exit code: 0