perl 如何判断文件是否存在 -e 好像不行啊

ztj2247

我用
$filename ="/home/abc.txt";

if( -e $filename)
{
   print "file exist\n";
}
else
{
   print "file no exist\n";
}

好像不行呀

Mr-Summer

{:3_182:} 好像是对的呀

bruce_wang_jane

可能跟版本有关系，我刚在perl 5.12上尝试，-e是有效果的，lz用的是那个版本？

longbow0

确实有

1. 
   
2. /home/abc.txt
   

复制代码

这个文件吗？

ajdan4q

可以啊，我的PERL是

This is perl, v5.8.5 built for x86_64-linux-thread-multi

zhlong8

你就把文件直接放到 /home 了

只爱睡觉

1. 
   
2. 
   
3. $filename ="/home/abc.txt";
   
4. 
   
5. if( -e $filename)
   
6. {
   
7.    print "file exist\n";
   
8. }
   
9. else
   
10. {
    
11.    print "file no exist\n";
    
12. }
    
13. 
    

复制代码

print "$filename exists";
or
print "$filename not exists";

dahe_1984

cat test.pl
#!perl
use strict;

my $filename ='/home/v-guhe/tmp/abc.txt';

if(-e $filename)
{
   print "file $filename exist\n";
}
else
{
   print "file $filename no exist\n";
}
BASH-/home/v-guhe/tmp %perl test.pl
file /home/v-guhe/tmp/abc.txt exist
BASH-/home/v-guhe/tmp %

seufy88

LZ你是用什么用户运行这支程序的？有可能这个用户都没有权限进入/home
另外有什么运行报错的没。“不行”到底是什么，具体点嘛

ztj2247

可以用的~ 我看错了