Objectattribute dynamisch ansprechen

[Struppi]

@Struppi
Nicht wenn man "use strict" an hat.

Doch, das funktioniert einwandfrei und ohne Meldung:

#!/usr/bin/perl -w  
use strict;  
my %test = ("Attr1" => 1, "Attr2" => 2, "Attr3" => 3);  
my $object = bless {  
Attr1 => 1,  
Attr2 => 2,  
Attr3 => 3  
};  
  
foreach(keys(%test)) {  
  my $key = $_;  
  
  print $object->{$key};  
}

Struppi.