ディレクトリが〜/ Perlを使用しているかどうか確認してください

Question

-dフラグの奇妙な動作が気付きました。私のパスに~/my_dirを使用すると、動作が異なります。

ディレクトリmy_dirが存在しても、次のコードはfalseを返しますが、/home/ricky/my_dirのような完全なパスに変更すると、ifステートメントはtrueを返します。

#!/usr/bin/perl -w 
# 
use strict; 

if (-d "~/my_dir") { 
    print "Found \n"; 
} 
else { 
    print "Not found \n"; 
} 

どういう違いがありますか？

Answer 1

~は、ホームディレクトリを示すためにシェルショートカットで、Perl未知です。ここでは、環境変数HOMEを使用する必要があります。たとえば、"$ENV{HOME}/my_dir"を使用します。

Answer 2

は実際のパスではありません。 /bin/bashなどのシェルは、それを環境変数$HOMEの値に展開します。 Perlはそうではありません。だから、あなたの代わりにこのようなものを使用する必要があります。

if (-d "$ENV{HOME}/my_dir") { 
    ... 
} 

Answer 3

また、chdirコマンドを実行して確認することもできます。 ディレクトリが存在しない場合、chdir "dir_name"は0を返します。ディレクトリが存在する場合は1です。