Подробнее о сценарии языка Perl MovieGuideHDML.pl
Подробнее о сценарии языка Perl MovieGuideHDML.pl
Когда пользователь произведет выбор кинотеатра в приложенииMovieGuide.hdml, браузер пошлет данные файлу сценария языка PerlMovieGuideHDML.pl, который, в свою очередь, откроет определенный файл формата HDML, основываясь на названии кинотеатра, которое приложение передаетсценарию.
Далее, сценарий языка Perl будет считывать и записывать содержимое файлаформата HDML. Браузер будет перехватывать это содержимое и создавать новуюдеку, основанную на вышеупомянутом содержимом файла формата HDML. Сценарий MovieGuideHDML.pl имеет следующий исходный код:
#!/usr/bin/perl
print "Content-type: text/x-hdml\n\n";
read (STDIN, $Buffer, $ENV{'CONTENT_LENGTH'});
$FileName = "../MovieGuide/" . $Buffer . ".hdml";
open (MovieInfo, $FileName);
while (<MovieInfo>) { print; }
close (MovieInfo);