?目录是存在, 但是却显示No such file or directory

脚本如下：
#!/usr/bin/perl -w
use strict;

open (DD,"date +%Y-%m |")|| die "can not exec shell command";
my $datedir=<DD>;
my @dt=split /-/, $datedir;

my $path="/usr/local/tomcat/webapps/WEB-INF/work/log/$dt[0]/$dt[1]";

chdir "$path" || die "can not change : $!";
close DD;

open (DALOG, "date +%Y%m%d |") || die "can not exec shell command";
my $datelog=<DALOG>;
close DALOG;

my $line=0;

if (-e "session\.$datelog\.log") {
    open ALTER,"session\.$datelog\.log";
    while(<ALTER>){
    chomp;
    if (!(/^,\s*(487|-1|0),$/)) {
         ++$line;
           print $_;
     }

     if ($line <=100) {
       print "OK -- now alter count $line";
     }elsif($line >100 && $line<=150) {
       print "Warning --now alter count $line";
     }else{
      print "Critical --now  alter count $line";
     }
  }
}

执行时，错误提示： can not change : No such file or directory at ./check_session.pl line 10, <DD> line 1.

相对路径问题吧。。用full path吧。

回复 兰花仙子


    chdir "$path"  就是用的绝对路径，不是相对路径

打印@dt看看结果

   在这个后面加一句print $path看看咯：
my $path="/usr/local/tomcat/webapps/WEB-INF/work/log/$dt[0]/$dt[1]";

回复 兰花仙子


我加过  print $path ，结果是一样的错误提示：
[root@database libexec]# ./check_session.pl
/usr/local/tomcat/webapps/WEB-INF/work/log/2010/08
can not change : No such file or directory at ./check_session.pl line 10, <DD> line 1.

    有没有这个目录啊：
/usr/local/tomcat/webapps/WEB-INF/work/log/2010/08

应该是chomp(my $datedir=<DD>);