perlでの部分文字列の一致、yesまたはno

Question

perlでは、文字列内の部分文字列を探したいと思います。結果は真/偽であり、次に私は何をすべきかを決めるでしょう。良い投稿hereがありますが、その用途は私にとってはあいまいです。

my $big_string = "Hello Good World"; 
my $pat = "world"; 

大文字/小文字は重要ではありませんが、私は真になりたいです。

use List::Util 'any'; 
my $match_found = any { /$pat/ } @big_string; 
if (match_found) 
    print "yes\n"; 
else 
    print "no\n"; 

これは間違いありませんか？この目的のために、より良いAPIはありますか？

Answer 1

それもコンパイルされませんので、それが正しくありません：if/elseは常にPerlで{}ブロックが続いています。また、if (match_found)に変数の$ sigilがありません。

大文字と小文字の違いを無視する（つまり、大文字と小文字の違いを無視する）場合は、iフラグを正規表現に追加する必要があります。

最後に、@big_string配列を定義していないコードで、$big_stringスカラーのみが定義されています。

ので：

use strict; 
use warnings; 
use List::Util 'any'; 

my $big_string = "Hello Good World"; 
my $pat = "world"; 

my $match_found = any { /$pat/i } $big_string; 
if ($match_found) { 
    print "yes\n"; 
} else { 
    print "no\n"; 
} 

このコードは動作しますが、それを向上させることができます。

まずはanyを使用してください。私たちは、チェックするために、複数の文字列のリストを持っていない：正規表現することになっているよう

my $match_found = $big_string =~ /$pat/i; 

第二に、$patは見えません。これは普通の文字列です。これは、英数字（例えば、world）には違いはありませんが、一般に、正規表現として解釈されることを意図していない文字列のすべての正規表現メタキャラクタをエスケープする必要があります。これはquotemeta機能（またはその\Q\E短い形式）で行うことができます。

my $match_found = $big_string =~ /\Q$pat\E/i; 

これが私たちの改良版である：

use strict; 
use warnings; 

my $big_string = "Hello Good World"; 
my $pat = "world"; 

my $match_found = $big_string =~ /\Q$pat\E/i; 
if ($match_found) { 
    print "yes\n"; 
} else { 
    print "no\n"; 
} 

最後に、私たちも、簡単なために正規表現を必要としません部分文字列検索。代わりに、私たちはこれを行うことができます：

use feature 'fc'; 
my $match_found = index(fc($big_string), fc($pat)) >= 0; 

fcは完全なUnicodeケースフォールディングが実装されています。