Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Выдыча файла

Автор: Throne 26.10.2006, 20:18

Вобщем подскажите пожалуйста как выдать (или редиректнуть в другой) файл, а лучше подскажите и то и другое smile

Автор: Nab 26.10.2006, 23:18

А теперь тоже самое и подробней пожалуйста, кого куда редиректнуть, и кого кому выдать?

Автор: Throne 27.10.2006, 06:45

Код


if ($FORM{'pass'}=="e2e4" && $FORM{'login'}=="robot") {
print "А ТУТ НЕ ХТМЛ НАПИСАН А ПРОСТО АДРЕС ФАЙЛА, КОТОРЫЙ НАДО ВЫДАТЬ\n";
print "А ТУТ АДРЕС ДРУГОГО ФАЙЛА, СОДЕРЖИМОЕ КОТОРОГО НАДО ВЫДАТЬ\n";
};

Я думаю так будет понятнее мой вопрос.

Автор: amg 27.10.2006, 07:47

Я все равно не понял.

Кстати, в приведенном коде ошибка. При операции численного сравнения (==) перл пытается интерпретировать последовательность символов как число, и если ему это не удается (а не удается ему это, если последовательность не начинается с цифры), то сравнивает с нулем. Таким образом, ($FORM{'pass'}=="e2e4" && $FORM{'login'}=="robot") всегда выдаст 1, если только введенные pass и login не начинаются с цифры, отличной от 0.

Мораль в том, что в данном случае вместо == логичнее было бы использовать eq, если только не стоит цель отучить пользователей вводить логины и пароли, начинающиеся с цифр. smile

Автор: JUmPER 27.10.2006, 08:13

для html файла

Код


print "content-type: text/html\n\n";
open(hFile,"<","file.html") or die "can't open file!\n";
print while(<hFile>);
close(hFile);