HashArray - Neues Anlegen aus existierendem (gelöst) - #158444 (Allgemeines zu Perl)

topeg

2012-05-21 17:33

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Das ist etwas kürzer und nutzt ein paar Fähigkeiten von Perl. :-)

Code (perl): (dl )

for my $key (keys %$hash1)
{
    my @Array;
    push (@Array, @{$hash1->{$key}}[0..3]);
    my $ref=$hash2->{$key};
    push (@Array, $ref?@$ref[2,3]:('',''));
    $result{$key}=\@Array;
}