Perlで配列に特定の要素が存在することを調べる方法

Perlで配列に特定の要素が存在することを調べる方法

Posted at December 11,2014 2:55 AM
Tag:[Perl]

Perlで、配列に特定の要素が存在することを調べる方法を紹介します。

このエントリーはビギナー向けの内容です。

1.問題点

配列変数fooの要素に"hoge"という文字列があることを調べたいので次のような赤色で示すコードを用意しました。

my @foo = ( "bar", "hoge", "fuga" );
for my $data ( @foo ) {
    print "OK" if $data eq "hoge"; 
}

このコードでは"hoge"が配列fooに複数存在する場合、"OK"が複数回出力されることになります。

1回だけ出力したい場合は、

for my $data ( @foo ) {
    if ( $data eq "hoge" ) {
        print "OK"; 
        last;
    }
}

とlastを追加すればいいのですが、もう少し簡単なコードで実装したいところです。

2.配列に要素が存在することを調べる

配列に要素が存在することを調べるにはgrepを利用します。

my @foo = ( "bar", "hoge", "fuga" );
print "OK" if grep { $_ eq "hoge" } @foo;

この1行で、@fooを繰り返し処理しながら$_に要素を代入し、$_の値と"hoge"が等しいものがある場合は"OK"を出力します。

なおgrepが返却するのは、式(カーリーブレイス"{}"の中)を評価した結果が真になるもので構成されるリストです。

次のように左辺に配列を代入すれば、リストを得ることができます。

my @list = grep { $_ eq "hoge" } @foo;
関連記事
zenback
人気エントリー
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)