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


Подробнее о сценарии языка Perl UpdateHouseWML.pl



Подробнее о сценарии языка Perl UpdateHouseWML.pl


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

#!/usr/bin/perl

$Buffer = $ENV{'QUERY_STRING'};

@data = split(/&/, $Buffer);

$Bedroom = $data[0]; $Kitchen = $data[1]; $Living = $data[2]; $Office = $data[3]; $Outside = $data[4];

if ($Bedroom eq -1) { srand; $Bedroom = rand(); $Bedroom = int ($Bedroom + .5);

$Kitchen = rand(); $Kitchen = int ($Kitchen + .5);

$Living = rand(); $Living = int ($Living + .5);

$Office = rand(); $Office = int ($Office + .5);

$Outside = rand(); $Outside = int ($Outside + .5); }

if ($Bedroom eq 0) { $OptionBedroom = "&ltoption onpick=\"UpdateHouseWML.pl?1\& $Kitchen\&$Living\&$Office\&$Outside\"&gt"; $OptionBedroom = $OptionBedroom . "Bedroom is OFF&lt/option&gt"; } else { $OptionBedroom = "&ltoption onpick=\"UpdateHouseWML.pl?0\& $Kitchen\&$Living\&$Office\&$Outside\"&gt"; $OptionBedroom = $OptionBedroom . "Bedroom is ON&lt/option&gt"; }

if ($Kitchen eq 0) { $OptionKitchen = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&1\&$Living\&$Office\&$Outside\"&gt"; $OptionKitchen = $OptionKitchen . "Kitchen is OFF&lt/option&gt"; } else { $OptionKitchen = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&0\&$Living\&$Office\&$Outside\"&gt"; $OptionKitchen = $OptionKitchen . "Kitchen is ON&lt/option&gt"; }

if ($Living eq 0) { $OptionLiving = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&$Kitchen\&1\&$Office\&$Outside\"&gt"; $OptionLiving = $OptionLiving . "Living room is OFF&lt/option&gt"; } else { $OptionLiving = "&ltoption onpick=\"UpdateHouseWML.pl? $Bedroom\&$Kitchen\&0\&$Office\&$Outside\"&gt"; $OptionLiving = $OptionLiving . "Living room is ON&lt/option&gt"; }




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