Пособие по написанию WAP-сайтов

       

Подробнее о сценарии языка 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 (&ltMovieInfo&gt) { print; }

close (MovieInfo);



Содержание раздела