Существование удаленного файла
Надо сделать на perl проверку на существование файла с картинкой на другом сайте.
Простая попытка чтения файла и просмотра результатов не дает ничего - говорит, что файла нет:
Простая попытка чтения файла и просмотра результатов не дает ничего - говорит, что файла нет:
Цитата:
sub testfile
{
$filename=shift;
open(FILE,"<$filename") || return 0;
return 1;
}
{
$filename=shift;
open(FILE,"<$filename") || return 0;
return 1;
}
Также пробовал следующий код, который также не дал результатов:
Цитата:
sub testfile
{
$filename=shift;
if (-e $filename) {
return 1;
} else {
return 0;
}
return 0;
}
{
$filename=shift;
if (-e $filename) {
return 1;
} else {
return 0;
}
return 0;
}
Файл существует точно.
Как можно осуществить задуманное?
Цитата:
Originally posted by m1rage
Надо сделать на perl проверку на существование файла с картинкой на другом сайте.
Надо сделать на perl проверку на существование файла с картинкой на другом сайте.
перл не пых, тут все по взрослому. LWP::UserAgent