Руководство пользователя:
Розработанный скрипт на языке Perl реализует загрузку содержимого файла в окно браузера.
Для вывода содержимого файла в качестве параметра передается имя файла.
Для тестирования программы необъходимо наличие PERL и запущенного Apache-сервера. В строке ввода адреса WEB-браузера необходимо задать : 127.0.0.1.
При возникновении ошибки в окне браузера отобразится сообщение.
Исходный текст программы:
#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "Resulting file : ";
$file=$ENV{'QUERY_STRING'};
open(FILE, "<$file");
while(<FILE>)
{
print $_;
}
close(FILE);
|
|
||