OOP - eigenschaften vererben - #62390 (Allgemeines zu Perl)

betterworld

2006-01-30 01:57

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Code: (dl )

my %a = (haarschnitt => 'kurz',
auto => 'mercedes',
);
my %b = (auto => 'trabant',
augen => 'treu'
);
my %c = (%a, %b);
use Data::Dumper;
print Dumper \%c;

Die Ausgabe ist:

Code: (dl )

$VAR1 = {
          'haarschnitt' => 'kurz',
          'auto' => 'trabant',
          'augen' => 'treu'
        };

So ähnlich könntest Du das machen. Du musst nur noch einen Konstruktor drum herumbasteln.

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class