[Perl]2次元配列のサンプルプログラム

Sat, 17 Jul 2010 00:10:40 +0900

C言語やC++なら2次元配列といっても配列の階層を増やすだけなので、わりと簡単に理解できるのですが、Perlはそこでリファレンスという、いまいちわかりにくいものが出てくるのでちょっと面倒です。

とはいっても、2次元配列程度でならそんなに複雑なコードになるというわけでもありません。

以下は、numdata.txtというコンマで区切られたテキストファイルのデータを、2次元配列に格納してからレコードごとに標準出力に出力するPerlのサンプルプログラムです。

--- numdata.txt ---1,2,3,411,12,13,1421,22,23,2431,32,33,3441,42,43,44--- sample.pl ---#!/usr/bin/perluse strict;use warnings;#use Data::Dumper;my @list;open my $infh, '<', "numdata.txt";while (my $rec = <$infh>) {    chomp $rec;    if ($rec ne '') {        push @list, [split(/,/, $rec)];    }}close $infh;#print Dumper(@list);foreach my $item (@list) {#    print Dumper($item);    my ($a, $b, $c, $d) = @{$item};    print "$a, $b, $c, $d\n";}

初めてのPerl 第5版
オライリージャパン著者：Randal L. Schwartz,Tom Phoenix,brian d foy 価格：3,780円評価：★★★★★

キーワード

Perl サンプルプログラム 2次元配列 リファレンス

語句ログ - ニュース、プログラミング、システムトレードの用語解説 - 日本の注目ニュース、コンピュータープログラミング（C/C++,Perl,PHP,SQL）、システムトレード（FX,CFD,株価指数,先物）に関する語句（Word）を日本語や英語で解説