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 exists perl
person Balaji    schedule 19.08.2011    source источник
comment
FILE_DIR и FILE_FOLDER? Это звучит запутанно.   -  person TLP    schedule 19.08.2011

Ответы (1)


arrow_upward
6
arrow_downward

Вы можете использовать файловый тест, например

unless (-e $image_path) {
    LWP::Simple::getstore($image_url, $image_path); 
}
person Eugene Yarmash    schedule 19.08.2011