Perl LWP :: Simple :: getstore Как проверить, существует ли файл в каталоге назначения - PullRequest
2 голосов
/ 19 августа 2011

В моем скрипте 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 Ответ

6 голосов
/ 19 августа 2011

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

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