Gegenteil von ~~ in Perl

Question

Gibt es ein Gegenstück für den Operator ~~ in Perl? Ich habe es verwendet, um ein Element in einem Array abzugleichen, so:

my @arr = qw/hallo ma duhs udsyyd hjgdsh/;
print "ist drin\n" if ('duhs' ~~ @arr);

Dies druckt ist drin. Es ist ziemlich cool, weil ich nicht alle Elemente des Arrays durchgehen und jedes überprüfen muss. Mein Problem ist, dass ich etwas tun möchte, wenn kein Treffer vorhanden ist. Ich könnte auf die else Seite gehen, aber ich würde lieber ein Gegenstück für `~~' finden.

Answer 1

Sie können auch List::Util (nur neuere Versionen dieses Moduls) oder List::MoreUtils mit any, none und Co. verwenden.

use List::Util qw(any none);
my @arr = qw /hello ma duhs udsyyd hjgdsh/;
say "oh hi" if any { $_ eq 'hello' } @arr;
say "no goodbyes?" if none { $_ eq 'goodbye' } @arr;

Obwohl nicht nativ für Perl, benötigt es nicht das experimentelle Smart-Matching.

Answer 2

Es sei denn == wenn nicht

print "ist nicht in\n" unless ('duhs' ~~ @arr);

Hinweis: Die intelligente Entsprechung ist experimentell in Perl 5.18+. Siehe Intelligente Entsprechung ist experimentell/veraltet in 5.18 - Empfehlungen? Verwenden Sie daher stattdessen folgendes:

print "ist nicht in\n" unless grep { $_ eq 'duhs' } @arr;