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

Strat

2005-07-04 17:21

User since
2003-08-04
5246 Artikel
ModeratorIn

mit exists $hash{$key} ueberpruefst du, ob ein key vorhanden ist

Code: (dl )

$target->{$_} = $source->{$_}  if exists $source->{$_};

mit deinem code wuerden z.B. values von "" oder 0 oder undef nicht kopiert...

Code: (dl )

1
2
3

my $target = shift;
 my $source = shift;
 my @keys = @_;

kannst du zusammenfassen zu:

Code: (dl )

my ($target, $source, @keys) = @_;

(wobei ich da eher source vor target verwenden wuerde, weil es IMHO intuitiver ist, kopiere von nach zu sagen als kopiere nach von:

Code: (dl )

1
2

copy source target
hashCopyByKey(\%source, \%target, qw(...));

eine einfachere loesung faellt mir jetzt nicht ein\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/