PerlGtk.pl

  
Menu główne
use PerlMongers::Warszawa;
use PerlMongers::Krakow;
NG_gRadio
Perl i Java - część 1
  przez wrares (81 odsłon)
Korzystając z możliwości jakie oferuje Java..., oraz biblioteka Swing... postanowiliśmy w swoich aplikacjach pisanych w ekosystemie Perla wykorzystać GUI Javy. Założyliśmy że aplikacje będą wykonywać ciężką pracę w Perlu, ale obsługa ich będzie poprzez GUI, generowane w Swingu. Na początku musimy zaopatrzyć się w następujące oprogramowanie.
Cytat:

(1) Środowisko Perla
(2) JDK Javy
(3) Zainstalować moduł Inline
(4) Zainstalować moduł Inline::Java


Środowisko Perla dla Waszej platformy do ściągnięcia jest tutaj.... JDK Javy dostępne jest w miejscu podanym powyżej. Moduły dostępne są we zasobach CPAN, Inline... oraz Inline-Java. Instalacja oprogramowania przebiega w poniższych krokach
Cytat:

(1) Instalacja systemu Perl
(2) Instalacja JDK Javy
(3) Instalacja modułu Inline
(4) Instalacja modułu Inline::Java


Zaznaczyć należy, że w przypadku instalacji modułu Inline-Java, musimy koniecznie podać ścieżkę do ekosystemu Javy.

perl Makefile.PL J2SDK=C:/j2sdk1.6.0_16


Poprawna instalacja, kończy się testem i możemy przystąpić do budowy naszej aplikacji. Na początku chciałbym zaprosić zainteresowanych o zapoznanie się z dokumentacją do modułów. Na samym początku proponujemy przykład z wykorzystaniem klasy JFrame, aby pokazać że Nasza aplikacja działa. Mamy tutaj dwa różne ekosystemy, więc należy zwrócić uwagę na ekosystem Javy. Przykładem niech będzie konstruktor. W naszym przykładzie musimy go jawnie tworzyć, pomimo braku jakichkolwiek parametrów. Natomiast programując w samej Javie, taki domyślny konstruktor jest za Nas tworzony. To samo dotyczy komentarzy. W Javie występuje //, natomiast w Perlu mamy #. A teraz kod naszego programu.
#!/usr/bin/perl -w
use strict;


#Konfiguracja - konieczna
use Inline ( Java => 'STUDY', SHARED_JVM => 1);

#Blok wykonawczy kodu Javy

use Inline Java => <<'RAMKA' ;

import javax.swing.*;
import org.perl.inline.java.* ;

      class Aplikacja extends JFrame{
      
       //Konstruktor
        public Aplikacja() {
            
        }
                 
         public void budujRamke() {
         JFrame ramka = new JFrame("Witamy w Inline::Java");
         JButton przycisk = new JButton("Portal perlgtk.pl");
         ramka.setSize(400,400);
         ramka.add(przycisk);
         ramka.pack();
         ramka.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
         ramka.setVisible(true);
         
         }
         
      }
RAMKA


#Blok wykonawczy kodu Perla
my $rameczka = new Aplikacja() ;
      $rameczka->budujRamke();
   


Gdy w programie usuniecie Blok konfiguracji, to ramka będzie działała z założeniem "pojawia się i znika". Dlatego warto zapoznać się z dokumentacją.








Powrót
Szukaj w PerlGtk.pl
The Perl Job site
Szukaj kodu :