Objektspezifische Variablen - #57675 (Allgemeines zu Perl)

renee

2005-09-05 16:46

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn ich in einem Modul über allen Subroutinen eine Variable deklariere, so ist diese für alle Objekte die gleiche (ähnlich dem static bei Java). Gibt es auch die Möglichkeit, eine Variable objektspezifisch zu machen??

So dass es ungefähr so aussieht:

Code: (dl )

package Test;

use strict;
use warnings;

my $objektspezifisch;

sub new{
   my ($class) = @_;
   my $self = {};
   bless $self,$class;
   print ++$objektspezifisch;
   return $self;
}

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Test;

my $obj1 = Test->new();
my $obj2 = Test->new();

Gewünschte Ausgabe:

Code: (dl )

1
2

1
1

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/