Perlで配列の要素をキーとバリューに持ったハッシュを作る

※ 商品のリンクをクリックして何かを購入すると私に少額の報酬が入ることがあります【広告表示】

いやー、単にある値が配列の要素に存在するかをテンプレートでチェックしたかっただけなんですが。

配列に値が含まれるかどうかは、 TemplateToolkitのVirtualMethodであるgrepでもできるようだけど、諸事情によりハッシュを使ったメモを残す。

配列に特定の要素が含まれるか確認する

Pythonでリストやタプルや辞書のキーで要素が取得できるかを確認するのは、 in を使えばいいです（ただし、辞書からNoneが返ると…）。

l = (1,2,3,4,5,)
if 4 in l:
  print 'exist!'

Perl講座によると、Perlで配列に特定の要素が含まれているかを確認するのは次のようにすればいいそうなんですが、よくわかりません :)

文字の場合

    @array = qw/rhythm factory express biztech/;
    %tmp;
    for ( @array ) { $tmp{$_} = 1 }

小さな数値の場合

@array = (1, 2, 4, 8, 16, 32);
@tmp;
for ( @array ) { $tmp[$_] = 1; }

今回は、TemplateToolkitのVirtualMethodのexistsが使いたいだけなので、配列の要素をキーとバリューに設定したハッシュを作ります。

    my @l = [1,2,3,4,5];
    my %l;
    @l{@l} = ();

意味が分かりません＞＜

配列と同名のハッシュを定義して、配列に配列に…？なぜか%lが設定済みになります。コンテキストが云々と説明してもらったけど、脳みそがスルーした :)

Perlむずいなー