einen Hash kompakter schreiben (gelöst) - #138029 (Allgemeines zu Perl)

MatthiasW

2010-06-06 14:33

User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]

Die Struktur kannst du umformen, so wie du sie brauchst:

Code (perl): (dl )

my %codons = (
    Ala => ['GCU', ...],
    ...
);
%codons = map {
    my $v = $_;
    map { $_ => $v } @{ $codons{$v} }; # edit: $_ durch $v ersetzt
} keys %codons;

Oder aber map direkt beim aufschreiben:

Code (perl): (dl )

my %codons = (
    (map {$_ => 'Ala'} qw/GCU GCC GCA GCG/),
    ...
);

MfG
Last edited: 2010-06-06 14:36:12 +0200 (CEST)

perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'