在我的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);
请帮助我。
由于
答案 0 :(得分:6)
您可以使用file test,例如
unless (-e $image_path) {
LWP::Simple::getstore($image_url, $image_path);
}