Comment puis-je obtenir les éléments d'une table de hachage dont les clés correspondent à une expression régulière?

Comment puis-je obtenir les éléments d'une table de hachage dont les clés correspondent à une expression régulière? sans avec n'importe quel module (e.g Tie::RegexpHash)

Comment atteindre cet objectif ? 

%s = (
        'as2-queen' => 1 ,
        'as1-queen' => 2,
    );


my $regex = qr/queen/ ;

if ( $s{$regex}) {
  print " I am here " ;
}

~

Vous devez montrer à votre sortie attendue. Si vous souhaitez émuler le comportement de la Cravate::RegexpHash, de regarder son code source.

OriginalL'auteur Tree | 2011-02-02

  1. 15

    Votre question n'est pas très claire que votre problème est probablement pas juste à propos de "l'aide" d'une expression régulière comme une clé de hachage, mais il s'agit d'obtenir une sortie vous ai pas expliqué.

    Je suppose que votre question pourrait être reformulée comme "Comment puis-je obtenir les éléments d'une table de hachage dont les clés correspondent à une expression régulière?" Si c'est le cas, le code suivant va travailler pour vous:

    my $regex = qr/queen/;
print "$_ => $s{$_}\n" for grep $regex, keys %s;

    OriginalL'auteur Alessandro

  2. 1

    Je devine que vous essayez de faire correspondre les touches dans la table de hachage à l'aide d'une regex.

    Si oui, utiliser grep sur la liste des clés:

    
%s = (
        'as2-queen' => 1 ,
        'as1-queen' => 2,
    );

my ($first_matching_key) = grep { $_ =~ /queen/ } keys %s;

print "First matching key is $first_matching key\n";
print "Corresponding value is $s{$first_matching_key}\n";

    Est cela que vous vouliez dire?

    Avez-vous essayé votre solution ? $first_matching_key contient le nombre de clés qui correspondent à /queen/
    oh pinaise, bonne prise, merci.
    Il serait plus clair d'écrire: grep { /queen/ } keys %s.

    OriginalL'auteur David Precious

  3. 1

    Utilisation smart matching en Perl 5.10.1 et ci-dessus:

    use 5.010;
use strict;
use warnings;

my %s = (
        'as2-queen' => 1 ,
        'as1-queen' => 2,
    );


my $regex = qr/queen/ ;

if ($regex ~~ %s) {
    say "I am here" ;
}

# Or perhaps cleaner
if (%s ~~ $regex) {
    say "I am here" ;
}

# More or less equivalent, in pre-5.10 code
if (grep { /$regex/ } keys %s) {
    say "I am here" ;
}
    Ou tout simplement if (%s ~~ /queen/) { say "Here I am" } depuis %hash ~~ $rx est défini comme un court-circuit grep des clés du modèle.

    OriginalL'auteur mscha