Perl: Einem Hash einen weiteren Hash zufügen
bearbeitet von plFreut mich. Und weils so schön ist, nutzen wir das mal, um Argumente für Funktionen vorzubelegen:
~~~perl
sub new{
my $class = shift;
my %cfg = (
file => '', # full qualified
lock => 0, # atomar read+write
@_);
}
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