Wie bekomme ich Elemente aus einem hash, dessen Schlüssel die übereinstimmung eines gegebenen regex?

Wie bekomme ich Elemente aus einem hash, dessen Schlüssel die übereinstimmung eines gegebenen regex? ohne usign jedem Modul (e.g Tie::RegexpHash)

Wie Sie diese erreichen ?

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


my $regex = qr/queen/ ;

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

~

Sie sollten zeigen Sie Ihre erwartete Leistung. Wenn Sie möchten, zu emulieren das Verhalten von Tie::RegexpHash, Blick auf den source code.

InformationsquelleAutor Tree | 2011-02-02

  1. 15

    Ihre Frage ist nicht ganz klar, wie Ihr problem ist wahrscheinlich nicht nur um "mithilfe" einer regex als hash-Schlüssel, aber es geht darum, eine Ausgabe hast du nicht erklärt.

    Ich nehme an, Ihre Frage könnte umformuliert werden als "Wie bekomme ich Elemente aus einem hash, dessen Schlüssel die übereinstimmung eines gegebenen regex?" Wenn dies der Fall ist, der folgende code funktioniert für Sie:

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

    InformationsquelleAutor Alessandro

  2. 1

    Ich vermute, du hast versucht, Schlüssel in den hash mit einem regex.

    Wenn dem so ist, verwenden Sie grep auf der Liste der Schlüssel:

    
%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";

    Ist, dass das, was du meintest?

    Haben Sie versucht, Ihre Lösung ? $first_matching_key enthält die Anzahl der Tasten, Spiel /queen/
    d ' Oh, guter Fang, vielen Dank.
    Wäre es klarer zu schreiben: grep { /queen/ } keys %s.

    InformationsquelleAutor David Precious

  3. 1

    Verwenden smart matching in Perl 5.10.1 und mehr:

    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" ;
}
    Oder einfach nur if (%s ~~ /queen/) { say "Here I am" } seit %hash ~~ $rx ist definiert als eine shortcircuiting grep der Schlüssel für das Muster.

    InformationsquelleAutor mscha

Schreibe einen Kommentar