Perl eigene Module (use,require)

[Siechfred]

Wäre etwas in dieser Art auch evtl. möglich?

Ich kenne mich in OOP mit PHP nicht aus, aber in Perl wäre sowas denkbar:

package myClient;  
use strict;  
  
sub new {  
  my $pkg = shift;  
  my $wert = shift || 42;  
  my $self = { Wert => $Wert };  
  bless $self, $pkg;  
  return $self;  
}  
  
sub TEST {  
  my $obj = shift;  
  return $obj->{Wert};  
}  
  
1

Und im Script dann:

my $Client = myClient->new(100);  
print $Client->Test;

Dann müsste ich nicht bei jedem Aufruf von TEST die Werte mit übergeben, weil die sind eh immer in jeder sub Funktion gleich :)

Dann handelt es sich offenbar um Objekteigenschaften, die Du in Perl so manipulieren kannst, wie ich es beschrieben habe.

Siechfred