« 多重配列の作り方 - 静的な配列のハッシュ | メイン | 多重配列の作り方 - 静的なハッシュのハッシュ »

2005年 6月 16日(木)   友引  今日は何の日?

多重配列の作り方 - 静的なハッシュの配列

Category : Perl 仕事 

Perlで静的なハッシュの配列を作る方法です。

当然ですが、静的な配列のハッシュと順番を変えてループさせれば良い。と言う事になります。

#!/usr/bin/perl

use strict;

my(%a, $i, $j);

# ハッシュの配列を静的に作る
%a = ( 'A' => [ qw(aa ab ac ad ae) ],
       'B' => [ qw(ba bb bc bd be) ],
       'C' => [ qw(ca cb cc cd ce) ] );

# 静的に作ったハッシュの配列を取り出してみる
foreach $i (sort keys %a) {
  for ($j = 0; $j <= scalar(@{$a{$i}})-1; $j++) {
    print '$a{'. $i. '}['. $j. ']='. $a{$i}[$j]. '  ';
  }
  print "\n";
}
print "\n";


__END__;

配列の配列, 配列のハッシュが分かってしまえば、あとは応用なのですけどね。。。


Posted by kibiwaka : 2005年06月16日 19:33

トラックバック

  • トラックバックを頂く記事の内容については、記事に関係する内容、記事への同調、記事への反論など、 記事の内容に関するもののみとします。
  • トラックバック先の記事に、当サイト、または該当記事へのリンクが無い場合には、トラックバックを削除させていただく場合があります。
  • Movable Typeの迷惑トラックバック感知機能により、トラックバックが受け付けられない場合があります。
  • 法律に触れる可能性があると判断できるもの、当サイトへの掲載が不適当と思われる内容については、 事前の連絡をなしに削除する場合があります。
  • 当サイト、黍若個人への連絡事項などがあれば、連絡用記事へトラックバックを付けてください。 個別の記事に付けないで下さい。
    または、ウェブメールでご連絡下さい。
  • 詳しくし、黍若日記 コメント・トラックバック・リンク基本方針をご覧下さい。

このエントリーのトラックバックURL:


このエントリーのリンク用URL:


コメント

  • コメントを頂く記事の内容については、記事に関係する内容、記事への同調、記事への反論など、 記事の内容に関するもののみとします。
  • Movable Typeの迷惑コメント感知機能により、コメントが受け付けられない場合があります。
  • 法律に触れる可能性があると判断できるもの、当サイトへの掲載が不適当と思われる内容については、 事前の連絡をなしに削除する場合があります。
  • 当サイト、黍若個人への連絡事項などがあれば、連絡用記事へコメントを付けてください。 個別の記事に付けないで下さい。
    または、ウェブメールでご連絡下さい。
  • 詳しくし、黍若日記 コメント・トラックバック・リンク基本方針をご覧下さい。

コメントしてください




保存しますか?



 

Copyright ©2004-2007 黍若