Perl LWP :: Simple :: getstore如何检查文件是否存在于目标目录中

时间:2011-08-19 08:35:59

标签: perl file exists

在我的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); 

请帮助我。

由于

1 个答案:

答案 0 :(得分:6)

您可以使用file test,例如

unless (-e $image_path) {
    LWP::Simple::getstore($image_url, $image_path); 
}