Подскажите, пожалуйста правильный синтекс и всего остального этого сабжа:
Есть форма для отправки ID(В виде цифр), причем в зависимости от ID перенаправляет на нужную страницу
$cards_url/$cardnumber$cardext
HTML:
Кусок Перл-скрипта:
sub get_card {
opendir (IDIR, $cards_directory);
@files = IDIR;
$file = "$FORM{\'getcards\'}$cardext";
foreach $files (@files) {
if (($file = @files) & ($FORM{\'getcards\'} ne "")){
$cardnumber = $FORM{\'getcards\'};
print "Location: $cards_url/$cardnumber$cardext
";
}
else {print &Error(\'Такого ID-номера Не существует, или, просто, он не введен!\'); exit; }
}
closedir (IDIR);
}
Нужно, чтобы скрипт проверил на наличие файла
$FORM{\'getcards\'}$cardext в директории $cards_directory, где
$FORM{\'getcards\'} - любое число выводимое из формы
$cardext - .html
$cards_directory - c:/что-угодно/postcards
Я еще ЧАЙНИК в это деле, так что сильно не судите....