Perl eigene Module (use,require)

[Patrick Andrieu]

Hallo Siechfred!

Darf ich diesmal? ;)

package myClient;

use strict;

sub new {
  my $pkg = shift;
  my $wert = shift || 42;
  my $self = { Wert => $Wert };

#                          ^ $wert

bless $self, $pkg;
  return $self;
}

sub TEST {
  my $obj = shift;
  return $obj->{Wert};
}

1

>   
> Und im Script dann:  
>   
> ~~~perl

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

> print $Client->Test;  

#                  ^^^^ TEST

Die falsche Großschreibung beim print ist mir sofort aufgefallen. Das mit $wert habe ich durchs Testen erst erfahren müssen ;)

Kannst Du noch kurz erklären, was new() macht?

Viele Grüße aus Frankfurt/Main,
Patrick