[ Pobierz całość w formacie PDF ]
.2 zaprezentowanym wczeœniej w tymrozdziale.Poni¿ej przedstawiamy sposób u¿ycia metody param obiektu CGI doodczytania tekstu z obszaru tekstowego w skrypcie cgi2.cgi (wynik tego odczytupokazano na rysunku 18.4):print "Twoje zdanie: ", $co->em($co->param('textarea')), ".";U¿ywanie pól opcjiPól opcji u¿ywa siê w grupach (wyniki z takich pogrupowanych pól opcji s¹ razemi zwracane w postaci jednej listy).Do tworzenia grupy opcji u¿ywa siê metodycheck-box_group; w skrypcie cgil.cgi tworzymy grupê opcji umo¿liwiaj¹c¹u¿ytkownikowi wskazanie u¿ywanych produktów.Grupie nadajemy nazwê,przekazujemy etykiety i poszczególnych opcji i wskazujemy, które pola maj¹ byæzaznaczone domyœlnie po pojawieniu siê strony:#!/usr/local/bin/perl$co = new CGI;print."Proszê wskazaæ u¿ywane produkty: ", $co->p,$co->checkbox_group(-name=>'checkboxes',-values=>['Szampon', 'Pasta do zêbów', 'Chleb', , 'Pociski balistyczne1],-defaults=>['Chleb', 'Pociski balistyczne'])Wyniki przedstawiono na rysunku 18.3 znajduj¹cym siê wczeœniej w tym rozdziale.Dane z tych pól opcji odczytujemy i wyœwietlamy w skrypcie cgi2.cgi, któregowyniki dzia³ania pokazano na rysunku 18.4.Zwróæ uwagê, ¿e metoda param zwracaw tym przypadku listê wartoœci, któr¹ mo¿emy po³¹czyæ funkcj¹ j oin w jedentekst:print "U¿ywasz nastêpuj¹cych produktów: ", $co->em(join(", ",$co->param('checkboxes'))), ".";U¿ywanie list wyboruLista wyboru s³u¿y do wyœwietlenia u¿ytkownikowi zestawu wartoœci, przy czymlistê ; mo¿na przewijaæ, jeœli wszystkie jej pozycje nie mieszcz¹ siê na raz.Do tworzenia list 1 wyboru s³u¿y metoda scrolling_list.W skrypcie cgil.cgiwygenerowaliœmy listê, która umo¿liwia u¿ytkownikowi okreœlenie swoichdochodów, a jako wybran¹ wartoœæ okreœliliœmy przychód wysoki:#!/usr/local/bin/perl$co = new CGI;print."Proszê okreœliæ szacunkowy przychód: ", $co->p,$co->scrolling_list('list',['Najwy¿szy', 'Wysoki1, 'Œredni', 'Niski'],'Wysoki',):Wyniki pokazano na rysunku 18.3 we wczeœniejszej czêœci tego rozdzia³u.Zwróæmyuwagê na to, jak odczytujemy w skrypcie cgi2.cgi wybrane pozycje:print "Poziom przychodów: ", $co->em($co->param('list')), ".";U¿ywanie przycisków radioU¿ycie przycisków radio umo¿liwia u¿ytkownikowi wybranie jednej z wieluwzajemnie siê wykluczaj¹cych opcji.Na przyk³ad w cgil.cgi u¿ywamy siedmiuprzycisków radio, które umo¿liwiaj¹ u¿ytkownikowi wybranie dnia tygodnia.Grupêprzycisków nazywamy radios, przy czym poszczególnym przyciskom przypisujemywartoœci od ' l' do ' 7 ', a w asocjacji %labels umieszczamy etykietyposzczególnych przycisków:#!/usr/local/bin/perl$co = new CGI;$labels{‘1’} = 'Niedziela';$labels{‘2’} = 'Poniedzia³ek$labels{‘3’} = 'Wtorek';$labels{‘4’} = ' Œroda ' ;$labels{‘5’} = 'Czwartek' ;$labels{‘6’} = 'Pi¹tek';$labels{‘7’} = ' Sobota ' ;print."Proszê podaæ dzieñ tygodnia: ", $co->p,$co->radio_group(-name=>'radios',-values=>['l','2','3','4','5','6','7'],-de£ault=>'l',-labels=>\%labels)Wyniki dzia³ania tego kodu pokazano na rysunku 18.3.Poni¿ej przedstawiamysposób odczytania wybranej wartoœci w skrypcie cgi2.cgi (rezultat tegoodczytania pokazano na rysunku 18.4):print "Dziœ jest ", $co->em($co->param('radios')), ".dzieñ tygodnia";U¿ywanie menuRozwijane menu w HTML, znane u¿ytkownikom Windows jako lista rozwijana z polemedycyjnym, daje u¿ytkownikowi mo¿liwoœæ wyboru jednej z wielu opcji — poklikniêciu umieszczonego z boku przycisku.W poni¿szym przyk³adzie zobaczysz,jak przy pomocy metody popup_menu wygenerowano menu, które umo¿liwiau¿ytkownikowi wskazanie iloœci chêtnie widzianej poczty:#!/usr/local/bin/perl$co = new CGI;print."Dziêkujemy za wype³nienie ankiety.Proszê okreœliæ, ile poczty chcia³byœotrzymywaæ: ",$co->popup_menu (-name=> ' popupmenu ' ,-values=>[ 'Mnóstwo’, 'Du¿o’, 'Niezbyt wiele', 'Wcale'])Wyniki dzia³ania tego kodu s¹ widoczne na rysunku 18.3.Oto sposób odczytania iwyœwietlenia wartoœci wybranej przez u¿ytkownika w skrypcie cgi2.cgi:print "Mile widziana iloœæ poczty: ", $co->em($co->param('popupmenu’)),U¿ycie pól ukrytychDane-na stronie sieciowej mo¿na przechowywaæ w polach ukrytych, czyli takiedane s¹ niewidoczne dla u¿ytkownika (jest to wygodne, jeœli potrzebne jestzapisanie danych zwi¹zanych z sam¹ stron¹).W skrypcie cgil.cgi generujemyankietê, wstawiaj¹c do niej tak¿e dane ukryte:#!/usr/local/bin/perl$co = new CGI;print.$co->hidden(-name=>'hiddendata', -default=>'Ró¿any p¹czek');W skrypcie cgi2.cgi dane te odczytujemy i wyœwietlamy (rysunek 18
[ Pobierz całość w formacie PDF ]