Prüfen, ob ein String enthält eines der Wörter in einem anderen

Question

habe ich ein Perl-Programm-Code, der eine Beschreibungszeichenfolge aus einer Hash zieht.

Ich habe meine Variable $ui gleich der Variablen $uniqueID, aber was ich will, ist wahr zurück, wenn $uialle Wörter enthält in Variable $unqiueID. Aber =~ funktioniert nicht.

Gibt es eine intelligente Art und Weise, dies zu tun?

sub getDescription { 

    my $uniqueID = shift; 
    my $retval; 
    my $ui; 

    foreach my $key (keys %HASHLIST) { 

     foreach $ui (@{ $HASHLIST{$key}->{uniqueID} }) { 

      if ($ui eq $uniqueID) { 
       $retval = $HASHLIST{$key}->{description}; 
       last; 
      } 
     } 

     last if $retval; 
    } 

    return $retval; 
} 

Answer 1

Eine einfache Möglichkeit zu testen, ob eine skalare Variable enthält eine andere ist:

if ($ui =~ /$uniqueID/) { 
    ... 
} 

(Und wie @Markus Laire Sie weist auch darauf hin können /\b$uniqueID\b/ verwenden Teilwort-Spiele zu verhindern.)

Answer 2

Ihre Ziel ist es nicht klar, aber es klingt wie $uniqueID eine Liste von Wörtern, und Sie wollen, dass der erste Eintrag in %HASHLIST deren uniqueID einem dieser Wörter entspricht

Dies wird das für Sie tun, aber ich muss sagen, dass Ihre Datenstruktur nicht ideal für diese Aufgabe geeignet ist

sub getDescription { 

    my ($uniqueID) = @_; 
    my %wanted = map { $_ => 1 } split ' ', $uniqueID; 

    for my $ui (values %HASHLIST) { 
     my @ids = @{ $item->{uniqueID} }; 
     return $item->{description} if @wanted{@ids}; 
    } 

    return $retval; 
}