+ -
当前位置:首页 → 问答吧 → if 测试语句调试不通,求解(perl)

if 测试语句调试不通,求解(perl)

时间:2011-09-02

来源:互联网

txt文本中的每一行记录一个文件的准确路径,我想测试一下记录的所有路径是否存在,代码如下:
[code=Perl][/code]
open (IN, "<out.txt") or die "file not exists:$!";
@file = <IN>;
foreach $line (@file){
chomp($line);
  if (-e "$line") {
print "input file exist,nice.\n";
  }
  #print "$line";
}

close IN;


其中out.txt的文本内容如下:
"Q:/Bsimprop/Test_golden/WSP/MDEWORK1.wsp"

明明有这个文件,为什么if (-e "$line")这个语句就是没进入执行呢??求高手帮助。

作者: wangjianhave1   发布时间: 2011-09-02

把out.txt里的双引号去掉。

作者: iambic   发布时间: 2011-09-02