[D]perl里如何判断目录已经存在

[D]perl里怎么判断目录已经存在
我知道可以用if(-e $folder)这样判断，不过我的$folder = "~/Document/aaa";

Perl code

$folder = "~/Document/aaa";if (-e $folder){printf "exist";}else{printf "not exist";}

这样是不行的，只有写全路径$folder = "Users/user/Document/aaa";才可以。
我的问题该怎么解决呢，我不想写全路径
---------------------
Double行动：
原帖分数：30
加分：30

[解决办法]
用glob扩展下，
if(-e (glob("~"))[0])
[解决办法]

Perl code

#!/usr/bin/perluse Env;$h = "$HOME/Document/aaa";print "$h"; 

 

查看更多 下一篇