「Perl2次元配列」の版間の差分
ナビゲーションに移動
検索に移動
imported>Webmaster |
imported>Webmaster |
||
13行目: | 13行目: | ||
| 3 || た || ち || つ || て || と | | 3 || た || ち || つ || て || と | ||
|} | |} | ||
− | + | 単純な50音表、こんな形が2次元配列というイメージがあると思う<br /> | |
− | + | == 配列への代入方法 == | |
− | + | ひとつ、ひとつブラケット <code>[</code>で括ってやって指定する方法<br /> | |
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
− | |||
+ | <syntaxhighlight lang="perl"> | ||
+ | my @jdata; | ||
+ | $jdata[0][0] = "あ"; | ||
+ | $jdata[0][1] = "い"; | ||
+ | $jdata[0][2] = "う"; | ||
+ | $jdata[0][3] = "え"; | ||
+ | $jdata[0][4] = "お"; | ||
+ | |||
+ | $jdata[1][0] = "か"; | ||
+ | $jdata[1][1] = "き"; | ||
+ | $jdata[1][2] = "く"; | ||
+ | $jdata[1][3] = "け"; | ||
+ | $jdata[1][4] = "こ"; | ||
+ | |||
+ | foreach my $var1 (@jdata) { | ||
+ | foreach my $var2 (@{$var1}) { | ||
+ | print "$var2 "; | ||
+ | } | ||
+ | print "\n"; | ||
+ | } | ||
+ | </syntaxhighlight> | ||
---- | ---- | ||
<!-- カテゴリに追加するページ名を記入 --> | <!-- カテゴリに追加するページ名を記入 --> | ||
[[Category:Perl|にじげんはいれつ]] | [[Category:Perl|にじげんはいれつ]] |
2017年10月15日 (日) 08:42時点における版
もう少し2次元配列について詳しく記録しておく
2次元配列のイメージはこんな感じだとおもう
\ | 0 | 1 | 2 | 3 | 4 |
---|---|---|---|---|---|
0 | あ | い | う | え | お |
1 | か | き | く | け | こ |
2 | さ | し | す | せ | そ |
3 | た | ち | つ | て | と |
単純な50音表、こんな形が2次元配列というイメージがあると思う
配列への代入方法
ひとつ、ひとつブラケット [
で括ってやって指定する方法
my @jdata;
$jdata[0][0] = "あ";
$jdata[0][1] = "い";
$jdata[0][2] = "う";
$jdata[0][3] = "え";
$jdata[0][4] = "お";
$jdata[1][0] = "か";
$jdata[1][1] = "き";
$jdata[1][2] = "く";
$jdata[1][3] = "け";
$jdata[1][4] = "こ";
foreach my $var1 (@jdata) {
foreach my $var2 (@{$var1}) {
print "$var2 ";
}
print "\n";
}