2011-08-19 27 views
2

私のPerlスクリプトでは、画像を取得してファイルとして保存するためにLWP::Simple::getstoreを使用しています。しかし、そのファイルがすでに存在するかどうかをチェックする方法を保存する前に?Perl LWP :: Simple :: getstoreファイルが保存先ディレクトリにあるかどうかを確認する方法

これはこれで私を助けてくださいスニペット

use constant FILE_DIR => "/home/destination/files/"; 
my $image_path = FILE_FOLDER."$item_id"."_"."$file_date.$image"; 
my $res = LWP::Simple::getstore($image_url,$image_path); 

です。あなたは、例えば、file testを使用することができます

おかげ

+0

「FILE_DIR」**と**「FILE_FOLDER」?それは混乱するように聞こえる。 – TLP

答えて

6

unless (-e $image_path) { 
    LWP::Simple::getstore($image_url, $image_path); 
} 
関連する問題