Kako da koristim promenjljive iz jedne pl skripte u drugoj? Kako se pozivaju prozori koji su napravljeni kao "Add Dialog" u Komodu? Jel ima neki bolji GUI editor za Perl??
Importovanje promenjljivih....
Zaključano
Zakačeno
Citat:
Kako da koristim promenjljive iz jedne pl skripte u drugoj?
Pa zavisi sta ti treba i na koji nacin to hoces da resis.
Ja big predlozio da pravis module odnosno klase. A za konkretan odgovor treba mi
i konkretno pitanje na primeru.
Ostatak pojma nema. Slabo radim GUI u Perl-u.
Nesto sam kao poceo, ali nemam sada vremena da dalje "istrazujem".
Inace to bi mogao da pitas na devshed perl forumu. Recimo samo da u svakom trenutku na istom ima minimum ~ 50 posetilaca.
http://forums.devshed.com/forumdisplay.php?f=6
Evo i konkretan primer:
Pravim skriptu za IRC koja je pisana u perl/Tk i treba da, kada dobijem PASS event od servera,
otvori prozor (skriptu pass.pl) i kada pritisnes OK ona posalje PASS koja se upise u
Entry. Da li je moguce da pass.pl skripta koristi "$irc = new
Net::IRC" koji je upisan u main.pl pod istim imenom promenjljive
($irc)? Isto me interesuje i za podprograme....
--
Best regards,
Marko mailto:[email protected]
Pravim skriptu za IRC koja je pisana u perl/Tk i treba da, kada dobijem PASS event od servera,
otvori prozor (skriptu pass.pl) i kada pritisnes OK ona posalje PASS koja se upise u
Entry. Da li je moguce da pass.pl skripta koristi "$irc = new
Net::IRC" koji je upisan u main.pl pod istim imenom promenjljive
($irc)? Isto me interesuje i za podprograme....
--
Best regards,
Marko mailto:[email protected]
E pa rekao bih da ti je logika losa.
Ideja je da ti imas samo jedan *.pl fajl.
A vise *.pm fajlova.
Tako da ne razumem zasto ti radis sa vise pl fajlova ?
Savetovao bih ti da pogledas prvo : http://www.perl.com/doc/manual/html/pod/perltoot.html
To je u slucaju da nisi bas OOP orijentisan (sto bih i rekao s' obzirom kako si napisao da radis). Pa vidi kako sta ... a onda samo stavi da ti se $irc snimi
u $self->{'_irc'} kojem onda mozes da pristupis iz bilo kog modula (klase) koja
nasledjuje osnovnu ...
Ideja je da ti imas samo jedan *.pl fajl.
A vise *.pm fajlova.
Tako da ne razumem zasto ti radis sa vise pl fajlova ?
Savetovao bih ti da pogledas prvo : http://www.perl.com/doc/manual/html/pod/perltoot.html
To je u slucaju da nisi bas OOP orijentisan (sto bih i rekao s' obzirom kako si napisao da radis). Pa vidi kako sta ... a onda samo stavi da ti se $irc snimi
u $self->{'_irc'} kojem onda mozes da pristupis iz bilo kog modula (klase) koja
nasledjuje osnovnu ...
To je zato sto ne radis GUI.... Kada koristim ActivState Komodo tj.
njegov GUI builder, on pravi 3 fajla za svaki prozor koji napravis. To
su: test.ui, test.pl, test_ui.pm. U fajlu test.ui stoje neke interne
stvari za program. U test_ui.pm stoje specifikacije za prozore,
Buttons, Entry....sve sto si naveo u Builder-u prostom drag&drop
tehnikom (velicina, promenjljive, pozicija, itd.). U test.pl skripti
stoje sub programi koji se pozivaju na event (npr. kada pritisnes
dugme "OK" on poziva sub ok_command{}) itd. Problem nastaje kada imam
jedan "parent" prozor i vise "child" prozora. U parent prozoru je
naveden sub za konektovanje na IRC
Kada IRC modul naidje na PASS event od IRC servera, on aktivira sub
pass{} u kome stoji moj poziv za prozor
Kada pritisnem "OK" pass prozor bi trebao da posalje PASS <sifra> na
IRC ali nece jer su to dve odvojene skripte (main.pl za parent i
pass.pl za child prozor). Kako da i pass.pl skripta koristi $irc
promenjljivu koja je navedena u main.pl????
I kako da neteram Perl da napravi JPEG sliku ali ne za Web ??
--
Best regards,
Marko mailto:[email protected]
njegov GUI builder, on pravi 3 fajla za svaki prozor koji napravis. To
su: test.ui, test.pl, test_ui.pm. U fajlu test.ui stoje neke interne
stvari za program. U test_ui.pm stoje specifikacije za prozore,
Buttons, Entry....sve sto si naveo u Builder-u prostom drag&drop
tehnikom (velicina, promenjljive, pozicija, itd.). U test.pl skripti
stoje sub programi koji se pozivaju na event (npr. kada pritisnes
dugme "OK" on poziva sub ok_command{}) itd. Problem nastaje kada imam
jedan "parent" prozor i vise "child" prozora. U parent prozoru je
naveden sub za konektovanje na IRC
Code:
$irc = new Net::IRC;
$conn = $irc -> newconn (Server => "$server"...itd);
..
..
..
..
$irc->start;
$irc = new Net::IRC;
$conn = $irc -> newconn (Server => "$server"...itd);
..
..
..
..
$irc->start;
Kada IRC modul naidje na PASS event od IRC servera, on aktivira sub
pass{} u kome stoji moj poziv za prozor
Code:
sub pass
{
$main = new MainWindow;
$main -> pass::ui;
MainLoop;
}
sub pass
{
$main = new MainWindow;
$main -> pass::ui;
MainLoop;
}
Kada pritisnem "OK" pass prozor bi trebao da posalje PASS <sifra> na
IRC ali nece jer su to dve odvojene skripte (main.pl za parent i
pass.pl za child prozor). Kako da i pass.pl skripta koristi $irc
promenjljivu koja je navedena u main.pl????
I kako da neteram Perl da napravi JPEG sliku ali ne za Web ??
--
Best regards,
Marko mailto:[email protected]
Kad pozivas funkciju pozovi je sa parametrom (prosledi joj vredost) i gotovo.
I koja je razlika izmedju "jpeg slike" i "jpeg slike za web"?
I koja je razlika izmedju "jpeg slike" i "jpeg slike za web"?
Potpis
JaFreelancer.com
Odlicno, ako je to tako lako samo mi detaljno objasni kako se to radi.
Razlika je u tome sto to nije CGI skripta tj. ne treba da je
prikazujem u brauzeru.
--
Best regards,
Marko mailto:[email protected]
Razlika je u tome sto to nije CGI skripta tj. ne treba da je
prikazujem u brauzeru.
--
Best regards,
Marko mailto:[email protected]
Nemam kod tvog programa tako da ti ne mogu reci tacno ali evo primer:
Jel vidis sta sam pokusao da kazem?
Uostalom, zipuj kod i prikaci ga ovde uz poruku, pa cu se zabaviti.
Code:
#!/usr/bin/perl
sub sabiranje{
$res = $a+$b;
return $res;
}
$a=5;
$b=3;
$res = sabiranje();
print "$res\n";
#!/usr/bin/perl
sub sabiranje{
$res = $a+$b;
return $res;
}
$a=5;
$b=3;
$res = sabiranje();
print "$res\n";
Code:
#!/usr/bin/perl
sub sabiranje{
my ($a,$b) = @_;
my $res = $a+$b;
return $res;
}
$a=5;
$b=3;
$res = sabiranje($a,$b);
print "$res\n";
#!/usr/bin/perl
sub sabiranje{
my ($a,$b) = @_;
my $res = $a+$b;
return $res;
}
$a=5;
$b=3;
$res = sabiranje($a,$b);
print "$res\n";
Jel vidis sta sam pokusao da kazem?
Uostalom, zipuj kod i prikaci ga ovde uz poruku, pa cu se zabaviti.
Potpis
JaFreelancer.com