Perl eigene Module (use,require)

[Patrick Andrieu]

Hallo Siechfred!

Du solltest mal ins SVN gucken ;))

Sollte ich in der Tat mal machen. Ich halte zwar den Tortoise-Ordner lokal immer aktuell, habe aber lange nicht im Red-Bereich (außer Forum) nachgeschaut.

Rufst Du die Konstruktorfunktion auf, die hier new heißt, ist ihr erstes Argument ($_[0]) immer der Name der Klasse.

Danke! Genau das hatte zum Verständnis gefehlt. Ich habe es wohl vergessen oder nicht richtig verinnerlicht, gelesen hatte ich es vermutlich schon. Und dadurch wird mir auch der gewählte Variablennamen (pkg für package) klar ;)

Da TEST keine Parameter erwartet, musst Du ihr auch nichts weiter übergeben. Ein Beispiel wäre:

sub TEST {

my $obj = shift;
  my $prop = shift;
  return $obj->{$prop};
}

> `print $Client->TEST('Wert');`{:.language-Perl}  
  
Auch klar, danke - auch wenn ich lange davon entfernt, so was zu schreiben (aber kommt sicher noch) ;)  
  
  
Viele Grüße aus Frankfurt/Main,  
Patrick

-- 
![](http://www.atomic-eggs.com/fuernA.jpg)  
  
\_ - jenseits vom delirium - \_  
  
[[link:hatehtehpehdoppelpunktslashslashwehwehwehpunktatomicminuseggspunktcomslash](http://www.atomic-eggs.com/)]  
Nichts ist unmöglich? [Doch!](http://www.atomic-eggs.com/cwi/cwi_4.shtml)  
Heute schon ge[gök](http://goek.atomic-eggs.com/goek_goek.html)t?