Приложение (скрипт ) на языке PERL



Руководство пользователя:

Розработанный скрипт на языке 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);




Rambler's Top100