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


Подробнее о сценарии языка Perl FlightScheduleWML.pl - часть 5


if ($ArriveCity eq "Unknown") {

$Deck = "Content-type: text/vnd.wap.wml

&lt?xml version=\"1.0\"?&gt &lt!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\"&gt

&ltwml&gt

&lthead&gt

&ltmeta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/&gt

&lt/head&gt

&ltcard&gt

&ltdo type=\"accept\" label=\"Done\"&gt &ltgo href=\"../FlightSchedule /FlightSchedule.wml\" /&gt &lt/do&gt

&ltp align=\"left\" mode=\"wrap\"&gt

$AirName flight $FlightNum is not in the database. Try again.

&lt/p&gt

&lt/card&gt

&lt/wml&gt";

print $Deck; } else {

$Deck = "Content-type: text/vnd.wap.wml

&lt?xml version=\"1.0\"?&gt &lt!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.1//EN\" \"http://www.wapforum.org/DTD/wml_1.1.xml\"&gt

&ltwml&gt

&lthead&gt

&ltmeta http-equiv=\"Cache-Control\" content=\"max-age=0\" forua=\"true\"/&gt

&lt/head&gt

&ltcard&gt

&ltdo type=\"accept\" label=\"Done\"&gt &ltgo href=\"../FlightSchedule /FlightSchedule.wml\" /&gt &lt/do&gt

&ltp align=\"left\" mode=\"wrap\"&gt

$AirName flight $FlightNum will arrive in $ArriveCity at $ArriveTime

&lt/p&gt

&lt/card&gt

&lt/wml&gt";

print $Deck; }


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


Далее, код использует серию конструкций if-else для определения, в первуюочередь, введенной авиакомпании, а затем и введенного номера рейса.


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



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