一瞬実装がわからなかった。 Perl6::Jenction は、Perl5でジャンクションを使うためのモジュールです。 use Perl6::Junction qw/any/; my $str = 'hage'; print "found.\n" if $str eq any 'hoge', 'foo', 'hage'; ドキュメント読んでみて、やっと、簡単に実…