PerlGtk.pl

  
Menu główne
use PerlMongers::Warszawa;
use PerlMongers::Krakow;
NG_gRadio
Perl z Tancerzem - część pierwsza
  przez wrares (65 odsłon)
Na łamach Naszego portalu..., zamieściliśmy informację o framework'u Dancer. Podaliśmy gdzie dostępna jest strona domowa projektu, moduły oraz ogólny opis. Dziś rozpoczynamy cykl poświęcony temu rozwiązaniu. Na początku należy zainstalować moduł wraz z zależnymi programami. Można zrobić to poprzez program cpan, lub instalując moduł indywidualnie. Instalacja po przejściu testów powinna zakończyć się sukcesem. Oprócz samego Tancerza, potrzebujemy serwer obsługujący żądania http. Na potrzeby testów zainstalowaliśmy Apache. Następnie stworzyliśmy katalog Dancer, w którym generujemy naszą przykładową aplikację. Robimy to w ten sposób że
dancer -a perlgtk  - generowanie aplikacji

i uruchamiamy nasz program komendą
./perlgtk.pl 

Jeśli mamy uruchomiony serwer możemy w przeglądarce wywołać Naszą stronę domową poprzez wpisanie adresu
http://localhost:3000/ 

Tutaj dostępne są zrzuty ekranów, uruchomiona aplikacja w przeglądarce.... Nasz aplikacja działa więc zróbmy coś pożytecznego. Chcemy poinformować o Tancerzu, oraz policzmy ile mamy użytkowników. Więc zaczynamy. Poszukajmy pliku perlgtk.pm, a w nim dopisujemy dwie procedury, jak pokazano poniżej
package pertlgtk;
use Dancer;
use Template;

get '/' => sub {
    template 'index';
};


#Dopisano procedury
#Poczatek

get '/info' => sub {
	template 'info';
};

get '/oblicz/:name' => sub {
      
        my ($wynik) = ();
        
        $wynik = params->{name} * 12;
                
        return "Wynik obliczenia $wynik";
    };

#Koniec

true;



Pierwsza procedura odwołuje się do pliku info.tt, więc taki tworzymy w katalogu /perlgtk/views/. Zawartość tego pliku jest przedstawiona poniżej
<h2>Portal perlgtk.pl </h2>
<pre>
<b>Perlgtk.pl</b> pragnie poinformować o nowymk frameworku, <b>Tancerz</b>, 
który przez najbliższe kilka spotkań w klubie tanecznym, będzie omawiany i prezentowany
dla potrzeb tańca, nauki kroków, różnych figur i samozadowolenia.
</pre>
<p>Perlgtk.pl życzy przyjemnego spędzenia czasu z Tańcem</p>
</head>

Efekt widoczny jest na zdjęciu....
Następna procedura realizuje nasze obliczenia. Podajemy wartość liczbową, a system pokazuje Nam wynik w przeglądarce. Piszemy http://localhost:3000/oblicz/12 i na ekranie przeglądarki otrzymujemy wynik 144 jak na załączonym
obrazku....
Powrót
Szukaj w PerlGtk.pl
The Perl Job site
Szukaj kodu :