« さすらいペット旅情編2が復旧 | メイン | 多重配列の作り方 - 静的な配列のハッシュ »
2005年 6月 16日(木) 友引 今日は何の日?
多重配列の作り方 - 静的な配列の配列
Perlで静的な配列の配列を作る方法です。
この例では、scalar() を用いて配列のサイズを求めていますが、$#a として最終添字番号を取得する方法もあります。
#!/usr/bin/perl
use strict;
my(@a, $i, $j);
# 配列の配列を静的に作る
@a = ( [ qw(aa ab ac ad ae) ],
[ qw(ba bb bc bd be) ],
[ qw(ca cb cc cd ce) ] );# 静的に作った配列の配列を取り出してみる
for ($i = 0; $i <= scalar(@a)-1; $i++) {
for ($j = 0; $j <= scalar(@{$a[$i]}-1); $j++) {
print '$a['. $i. ']['. $j. ']='. $a[$i][$j]. ' ';
}
print "\n";
}
print "\n";
__END__;
@{$a[$i]}のデリファレンスを覚えられれば問題無いかな。と思います。
Posted by kibiwaka : 2005年06月16日 19:31
トラックバック
- トラックバックを頂く記事の内容については、記事に関係する内容、記事への同調、記事への反論など、 記事の内容に関するもののみとします。
- トラックバック先の記事に、当サイト、または該当記事へのリンクが無い場合には、トラックバックを削除させていただく場合があります。
- Movable Typeの迷惑トラックバック感知機能により、トラックバックが受け付けられない場合があります。
- 法律に触れる可能性があると判断できるもの、当サイトへの掲載が不適当と思われる内容については、 事前の連絡をなしに削除する場合があります。
- 当サイト、黍若個人への連絡事項などがあれば、連絡用記事へトラックバックを付けてください。 個別の記事に付けないで下さい。
または、ウェブメールでご連絡下さい。 - 詳しくし、黍若日記 コメント・トラックバック・リンク基本方針をご覧下さい。
このエントリーのトラックバックURL:
このエントリーのリンク用URL:
コメント
- コメントを頂く記事の内容については、記事に関係する内容、記事への同調、記事への反論など、 記事の内容に関するもののみとします。
- Movable Typeの迷惑コメント感知機能により、コメントが受け付けられない場合があります。
- 法律に触れる可能性があると判断できるもの、当サイトへの掲載が不適当と思われる内容については、 事前の連絡をなしに削除する場合があります。
- 当サイト、黍若個人への連絡事項などがあれば、連絡用記事へコメントを付けてください。 個別の記事に付けないで下さい。
または、ウェブメールでご連絡下さい。 - 詳しくし、黍若日記 コメント・トラックバック・リンク基本方針をご覧下さい。

