Frage zur Programmstruktur: "globale Objekte" (gelöst) - #140742 (Allgemeines zu Perl)

sitescriptor

2010-08-18 01:46

User since
2009-08-09
105 Artikel
BenutzerIn
[default_avatar]

Nochmal Danke für die Antworten, die mir auch gleich weiterhelfen!

Ich bin erleichtert, dass die Frage nicht soo unendlich doof ist, wie ich befürchtet habe...

Ich habe erstmal topeg Packetvariablen-Lösung oder wie immer man sie nennt, an ein paar Stellen eingesetzt und erstmal komme ich damit weiter.

murphys "Registrar"-Lösung hatte ich auch angedacht. Allerdings ist meine Problematik nicht besonders dynamisch was Anzahl und Lebenszeit von Objekten angeht, trotzdem habe ich mir Peco::Container gemerkt.

Noch eine Bemerkung zu Euren Beispielen: in sub new... müsste auch einmal das Objekt der Packetvariablen zugewiesen werden.

Code (perl): (dl )

package Sitescriptor::Core::Request::Httpheader;
my $me;

sub new
    {
    my $pkg = shift;
    my $Self = {};
    bless( $Self, (ref $pkg || $pkg) );
    $me = $Self;
    return $Self;
    }
sub get_obj
    {
    $me = Sitescriptor::Core::Request::Httpheader->new(@_) unless($me);
    return $me;
    }