Hi,
also irgendwie komm ich grad absolut nicht weiter. Wahrscheinlich wieder was in der Art wie: 'Doofe Bäume, wo ist der Wald hin??'&…
Also ich hab ein MainWindow, das dann ein TopLevel erzeugt, in welchem Eingabefelder sind. Nach dem Drücken des OK-Buttons, welcher auch im TL ist, sollen die Eingaben in Programmübergreifende Variablen gepackt werden und das TL zerstört werden. Das ganze wäre ja eigentlich kein Problem, da man in der an den Button gebundenen Subroutine auch auf die Variablen zugreifen können müsste. Dies ist aber nicht der Fall, da ich die Subroutine (wie auch alle anderen) in ein(bzw. mehrere) Modul(e) auslagern möchte, das dann ge-use-d wird. Somit dürfte ich die Variable nicht mit my deklarieren, da sie sonst nicht im Modul sichtbar ist. Ich möchte sie aber auch nicht im Modul mit our deklarieren weil sie eventuell auch in anderen Subroutinen anderer Module genutzt werden soll. Mit require ist es ja das selbe: Auch hier kann in Subroutinen nicht auf die Variablen, welche im Hauptprogramm mit my deklariert wurden zugegriffen werden.
Somit zur eigentlichen Frage: Wie bring ich den Wert in die Variable ohne dass strict nörgelt?
bzw.: (Wie) Lagert ihr euren Code bei größeren (TK-)Projekten aus?

Jemand

vielleicht ein eigenes package mit globalen variablen machen, und die dann immer voll ansprechen?

oder was auch immer

sonst gibt es bei mir mehrere Dateien mit unterschiedlichen packages; wenn das Projekt z.B. PBX heisst, dann wuerde ich mir z.B. den Sinn folgender Aufteilung ueberlegen:

PBX::Widgets: Wrapper um die Tk-Widgets, damit ich denen gleich Standardwerte verpassen kann wie z.B. hintergrund, font, ...

PBX::Forms: hier erzeuge ich das Layout

PBX::Callbacks: hier stehen die ganzen Callbacks drinnen (oder zumindest die, die nicht in anonymen subroutinen abgehandelt werden

PBX::DB: Wenn ich z.B. auf eine Datenbank zugreifen muss, dann kommt der Code, der mit der DB kommuniziert, dort hinein und wird dann von den anderen Stellen aus aufgerufen

PBX::Config: fuer die Konfiguration; dafuer verwende ich meistens globale Variablen (die allerdings readonly)

PBX::Global: das sind globale bind-Variablen, oder komplexere Datenstrukturen, in denen ich die ganzen Widgets hierarchisch speichere, damit ich ueberall einfach drankomme

Danke, werds mal so versuchen.
theorethisch ginge aber auch aus der subroutine dann $main::variable, oder doch nicht?
Muss man die dann nicht auch mit our deklarieren oder gibt our einfach zugrif durch das package hindurch?

an "globalen" Variablen kommt man immer ueber packagename::variable dran; wenn du sie mit
our $Var;
oder:
use vars qw($Var);
deklarierst, sagst du perl nur, dass du sie im aktuellen Namensraum als $Var ansprechen willst... zusaetzlich jedoch kannst du sie auch immer ueber $...packagename...::Var ansprechen, egal von wo

theoretisch ginge auch $main::variable oder sogar kuerzer $::variable, aber ich verwende main nicht so gerne, weil es irgendwie bei mir recht haeufig vorkommt, dass zwei Tk-Applikationen zu einer zusammengeworfen werden, und da aendern sich dann die packagenamen... und wenn beide viel main verwenden, ist sowas recht mueseelig zum auseinanderdroeseln... also lasse ich da main nur sehr kurz sein...