Perl: Einem Hash einen weiteren Hash zufügen

[pl]

Freut mich. Und weils so schön ist, nutzen wir das mal, um Argumente für Funktionen vorzubelegen:

sub new{
    my $class = shift;
    my %cfg = (
        file => '', # full qualified
        lock => 0,  # atomar read+write
    @_);    

}

my $obj = Class->new( file => '/tmp/test', lock => 1);

In diesem Kontext wird das Array @_ als Hash bewertet und die vorbelegten Schlüssel überschrieben. Schlüssel die erforderlich sind, werden natürlich nicht vorbelegt, sonder da wird geprüft ob sie beim Funktionsaufruf einen Wert bekommen haben. Übersichtlich, zweckmäßig und praktisch!

MfG