PDSC #1 実用例:
リストのリスト

Tom Christiansen著
< tchrist@perl.com >

リリース 0.1 (未テスト,誤植の可能性あり)
1995年１０月１日（日）

注記

ここで使用されている実用例のさらに精緻な記述については、この資料の 拡張版を参照して下さい。

リストのリストの宣言:

@LoL = ( 
       [ "fred", "barney" ],
       [ "george", "jane", "elroy" ],
       [ "homer", "marge", "bart" ],
     );

リストのリストの生成:

# ファイルからの読込
while ( <> ) {
    push @LoL, [ split ];
}

# 関数の呼び出し 
for $i ( 1 .. 10 ) {
    $LoL[$i] = [ somefunc($i) ];
}

# 一時変数の使用
for $i ( 1 .. 10 ) {
    @tmp = somefunc($i);
    $LoL[$i] = [ @tmp ];
}

# 既存の行への追加
push @{ $LoL[0] }, "wilma", "betty";

リストのリストのアクセスと出力:

# １つめの要素
$LoL[0][0] = "Fred";

# 別の要素
$LoL[1][1] =~ s/(\w)/\u$1/;

# 参照を用いて全項目print
for $aref ( @LoL ) {
    print "\t [ @$aref ],\n";
}

# インデクスを用いて全項目print
for $i ( 0 .. $#LoL ) {
    print "\t [ @{$LoL[$i]} ],\n";
}

# 一つずつ全項目print
for $i ( 0 .. $#LoL ) {
    for $j ( 0 .. $#{$LoL[$i]} ) {
	print "elt $i $j is $LoL[$i][$j]\n";
    }
}
ご意見、ご要望は、 電子メールまたは 投稿にお願い致します。

ホームページへ戻る。