Perlの配列に一致する要素が格納されているインデックスを取得する方法

Perlの配列に一致する要素が格納されているインデックスを取得する方法

Posted at January 22,2015 12:55 AM
Tag:[Perl]

Perlの配列に一致する要素が格納されているインデックスを取得する方法を紹介します。

1.問題点

次の配列があるとします。

my @list = ( 'a', 'b', 'c', 'd', 'e', 'f', 'g' );

この配列に「c」が含まれているかどうかを調べるには、grepを用いればOKです。

#!/usr/bin/perl
 
use strict;
 
my @list = ( 'a', 'b', 'c', 'd', 'e', 'f', 'g' );
if ( grep { $_ eq 'c' } @list ) {
    print "OK";
} else {
    print "NG";
}

が、配列に一致する要素が格納されている番号を取得する方法が分かりません。

上記の例の場合、「c」が格納されているインデックス「2」を取得したいです。

2.配列に一致する要素が格納されているインデックスを取得する

配列に一致する要素が格納されているインデックスを取得するには、grepのリスト部分に配列のインデックスを渡し、インデックスを使ってブロック内で配列の値をチェックします。

grep { $list[$_] eq 'c' } 0 .. $#list;

全体のコードは次のようになります。

#!/usr/bin/perl
 
use strict;
 
my @list = ( 'a', 'b', 'c', 'd', 'e', 'f', 'g' );
my ( $result ) = grep { $list[$_] eq 'c' } 0 .. $#list;
print $result;

grepの返却値は配列ですが、マッチする値がひとつであることが分かっていれば、上のようにスカラー変数に代入すればよいでしょう。

関連記事
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


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

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

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

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