Bestimmte Keys in anderen Hash kopieren - #55959 (Allgemeines zu Perl)

Damokles

2005-07-04 17:08

User since
2005-06-28
7 Artikel
BenutzerIn
[default_avatar]

Hallo ich habe da mal ne Frage.

In meinem Programm muss ich öfter eine Reihe von keys von einem Hash in den anderen kopieren. Ich habe schon eine Funktion geschrieben, die so etwas macht, wollte aber fragen, ob es auch einfacher geht. Man sollte die keys nur einmal angeben müssen.

Meine Funktion wird so benutzt.

hashCopyByKey(\%target,\%source,qw(some keys);

Code: (dl )

sub hashCopyByKey {
  my $target = shift;
  my $source = shift;
  my @keys = @_;
  foreach (@keys){
    $target->{$_} = $source->{$_} if $source->{$_};
  }
}

Ich weiß, das auch

Code: (dl )

@{%Target}{qw(some keys)} = @{%Source}{qw(some keys)};

geht aber, mir währe das verhalten meiner Funktion lieber.
Irgendeine Idee?