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


Подробнее о сценариях языка Perl,используемых в приложении - часть 2


Браузер, поддерживающий протокол WAP, в свою очередь, перехватывает вывод, трактуя его каккарту формата WML. ^ v i, t ;я;


В файле формата WML для определенного индекса исходный код предлагаетпользователю выбрать, что он желает узнать: текущую погоду, погоду на сегодняшний день или прогноз на завтра. После этого, основываясь на выборе пользователя, отображается информация о погоде.


В нашем случае карта содержит всю информацию о погоде. В реальном приложении вам необходимо будет использовать базу данных для хранения информации о погоде, исходя из содержимого которой будут создаваться в процессе работы приложения соответствующие карты, содержащие необходимую информацию.


Сценарий языка Perl CityWeatherWML.pl анализирует название города, получаемоеим из приложения как параметр, и затем, основываясь на введенном названии,открывает и выводит файл, предлагающий пользователю выбрать информацию отекущей погоде, погоде на сегодняшний день или прогноз на завтра. После этогофайл выводит на дисплей телефона соответствующую погодную информацию.Сценарий CityWeatherWML.pl имеет следующий исходный код:

#!/usr/bin/perl

print "Content-type: text/vnd.wap.wml\n\n";

$Buffer = $ENV{'QUERY_STRING'}; $Buffer =~ s/%20/ /g;

if ($Buffer eq "Las Vegas") { $FileName = "../Weather/LasVegas.wml"; } elsif ($Buffer eq "Reno") { $FileName = "../Weather/89501.wml"; } elsif ($Buffer eq "Albuquerque") { $FileName = "../Weather/87101.wml"; } else { $FileName = "../Weather/Unknown.wml"; }

open (WeatherInfo, $FileName);

while (&ltWeatherInfo&gt) { print; }

close (WeatherInfo);


Как вы видите, в сценарии используется последовательность конструкций if-else для определения введенного пользователем названия города. Если сценарийобнаруживает поддерживаемое название города, он присваивает его переменной$FileName, которую использует позднее для открытия и вывода содержимогофайла. Если введенное название не поддерживается сценарием, то этой переменной присваивается имя файла Unknown.wml с целью вывода на дисплей пользователя сообщения об ошибке.


Начало  Назад  Вперед



Книжный магазин