Objectattribute dynamisch ansprechen

[Struppi]

danke für die Antwort. Die Sache funktioniert deshalb nicht, da es keine Attribute, sondern Methoden sind.

Auch dann funktionert es, du musst nur auf die Methoden zugreifen:

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

Struppi.