Transformer les clés de hachage pour un tableau

J'ai une table de hachage(%hash) avec les valeurs suivantes

test0  something1
test1  something
test2  something

J'ai besoin de construire un tableau à partir des touches avec les éléments suivants

@test_array = part0_0 part1_0 part2_0

En gros, je dois prendre testx (clé) et de le remplacer en tant que partx_0

Bien sûr, je peux facilement créer un tableau comme le suivant

my @test_array;

foreach my $keys (keys %hash) {
    push(@test_array,$keys);
}

et j'aurai

@test_array = test0 test1 test2

mais ce que je voudrais, c'est pour obtenir part0_0 au lieu de test0, part1_0 au lieu de test1 et part2_0 au lieu de test2

double possible de Perl, convertir de hachage à la gamme
Ce n'est même pas proche d'une copie exacte de la poste, et les réponses, il ne serait pas répondre à cette question.

OriginalL'auteur user238021 | 2011-12-17

  1. 6

    Ressemble à un bon moment pour utiliser le non-destructeurs /r pour les substitutions.

    my @array = map s/^test(\d+)/part${1}_0/r, keys %a;

    Pour perl versions qui ne prennent pas en charge /r:

    my @array = map { s/^test(\d+)/part${1}_0/; $_ } keys %a:
    Remarque: disponible Uniquement dans la version 5.14+
    Où avez-vous la cherchez?
    href="http://perldoc.perl.org/perl5140delta.html#Regular-Expressions" >perldoc perl5140delta
    C'est seulement bon si vous savez déjà quelle version il est venu avec, mais... Comme un carnet d'adresses qui est triée dans l'ordre numérique. =P
    Je sens une question à venir 😉 ... aller de l'avant et de demander avant de me faire 🙂

    OriginalL'auteur TLP

  2. 9

    pourquoi ne pas faire plus facile

    my @array = ( keys %hash )
    dans certaines versions de Perl, vous recevrez un scalaire ( en disant le nombre de touches que vous avez )

    OriginalL'auteur Anatoliy Khmelevskiy

  3. 3
    my @a;
for (keys %hash) {
   push @a, 'part' . ( /^test([0-9]+)/ )[0] . '_0';
}

    Mais qui ne demande pour map à être utilisé.

    my @a =
   map { 'part' . ( /^test([0-9]+)/ )[0] . '_0' }
    keys %hash;

    OriginalL'auteur ikegami

  4. 0
    my @array = map { s/^.+([0-9]).*/part$1_0/g;split }  keys %hash;
    split? Qu'est-ce que?

    OriginalL'auteur karthi_ms