Ich mache den Tk-Kram immer (= in größeren Projekten) in gesonderten Funktionen und lege Widgets wie $mw, die ich in verschiedenen Funktionen brauche, im allgeimeinen Konfigurationshash ab. Das versteckt sie natürlich auch nur, aber man hat dadurch nur eine (oder nur wenige) globale Variablen, was ich als deutlichen Vorteil ansehe.
Oft kann man sich das Speichern von Widgets auch sparen, wenn man Variablen an die Werte bindet. Dafür muss man dann natürlich diese in seinen Hash aufnehmen, aber das empfinde ich trotzdem als etwas eleganter.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite