Izolacija variabli i proedura

Pišem poslovnu aplikaciju u Perl/Tk. Aplikacija je svaki danom sve veća i u principu nastaviće stalno da se širi. Da bi ubrzao pokretanje aplikacije u "glavni" program sam stavio samo inicijalizaciju globalnih variabli i meni sistem, a pojedinačne programe pozivam preko funkcije eval. Sada imam problem kako da izolujem funkcije koje definišem u pojedinačnim programima.
Kada startujem isti program istovremeno 2 i više puta ( recimo paralelno se gledaju kartice promena za dva kupca) ili kod ponovnog startovanja istog programa dobijam poruke o redefiniciji svih sub-ova koji se definišu u programu. Sve radi kako treba , bez obzira na poruke, ali me ova upozorenja ipak plaše. NA KOJI NAČI MOGU DA IZOLUJEM SVE VARIJABLE I PROCEDURE U POZVANOM PROGRAMU, ODNOSNO KAO DA IH SE POTPUNO OSLOBODIM PO OBAVLJENOM POSLU. Pretpostavljam da je resenje u objektima, ali mi je potrebna pomoc .

U pravu si, resenje je ili u objektima ili u koriscenju modula (sto mu se otprilike svodi na isto)..

Znaci, napravis module za svaki zasebni deo (npr, te tvoje kartice) i u modulima definises sve operacije koje mogu da se izvode za taj deo. U glavnom programu samo ubacis modul i kreiras objekat tog modula:


Koriscenje modula znatno olaksava posao izmene delova programa a uz to je i sam kod citljiviji i pregledniji.

Sto se tice pisanja modula, imas dosta informacija o tome na Internetu, a mozda bi najbolje bilo da kupis Lama Book i Camel Book.

Pozdrav,
alex.

Potpis

Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x ||
linkedin.13x

Modula ima oko 200. Kako da izbegnem da sve module kompajlira pri pokretanju programa i kako da "počistim" iza njega kada završi sa radom ?
Parče koda bi dobro došlo. Šta da stavim u "glavni" program, kao da pozovem modul ...

Koristeci eval funkciju, tvoj glavni program kompajlira tvoje module svaki put kada ih eval-uje. To ces izbeci tako sto ces te tvoje module napraviti kao prave Perl module. Te tvoje module tesko mozemo nazvati pravim modulima.

Na ovom linku:
http://world.std.com/~swmcd/steven/perl/module_mechanics.html
naci ces detaljne informacije o pisanju Perl modula, tako da nema potrebe
da ti pisem detaljnije o tome.

Takodje, ovaj link je veoma interesantan, daje malo vise informacija:
http://mathforum.org/~ken/perl_modules.html

Sto se tice parceta koda, pa vec sam ti dao primer u mojoj prethodnoj poruci. Napises modul, nazoves ga Kartica (fajl Kartica.pm) i u svom glavnom programu ga ukljucujes sa:


Zatim, kada hoces da kreiras objekat koji je definisan u tom modulu, pozivas ga otprilike ovako:


Recimo da u objektu Kartica imas metod PrikaziKarticu():


Easy as that! U sustini, pisanje i koriscenje Perl modula je krajnje jednostavno a veoma mocno.

Pozdrav,
alex.

Potpis

Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x ||
linkedin.13x

Mislim da se nismo razumeli. Preformulisaću pitanje tako da bude jasnije :
Kako treba pisati VELIKU aplikaciju u Perl-u , ali tako da što manje "jede" računarske resurse.
Čini mi se da je nerazumno na početku navesti :
use mod001;
use mod002;
...
use mod999;
...i tako kompajlirati ogroman broj modula (to traje !!!) i držati ih u memoriji kada najveći deo njih verovatno neće biti upotrebljen do kraja rada programa.
DA LI POSTOJI MOGUĆNOST DA :
1. Učitam modul po zahtevu.
2. Obavim posao sa njim ( kreiram objekat, ...)
3. Uklonim iz memorije sve vezano za modul (ne samo objekat)

Onda su ti potrebni pravi objekti - pogledaj funciju bless.

Potpis

Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x ||
linkedin.13x

Mislim da se modul za to sove AutoLoader ili tako nesto. S druge strane, znam sigurno da ce eval(); da odradi posao ako ga zovnes u sred koda. Tako mozes modul da ucitas kako ti je volja, a ne na pocetku programa.

Alex je u pravu s druge strane. Potrebni su ti pravi objekti ako hoces da "cistis" za njima. Pogledas perldoc perltoot, ako se dobro secam (ili, alternativno, odes na http://www.perldoc.com/ i tamo gledas).

Zahvaljujem se na pomoći. Problem sam rešio. Umesto imenovanih koristio sam anonimne sub-ove koji mogu da se lokalizuju.