PGM->Perl/リスト - プログラミングの勉強をしよう@Wiki

Top > PGM->Perl > リスト

リスト

配列へ設定

# 設定
@list = ( '100', '200', 'aaa');
 
# リスト出力
foreach $value (@list){
	print "$value\n";
}
 

100
200
aaa
 

連想配列へ設定

# 設定
%hash = ('k1' => "111", 'k2' => "222", 'k3' => "333");
 
# リスト出力
while(($key, $value) = each %hash){
	print "$key : $value\n";
}
 

k2 : 222
k1 : 111
k3 : 333
 

配列の値を変数へ設定

# 設定
@list = (400, 500, 600);
 
# 変数に展開
($value1, $value2, $value3) = @list;
 
# 出力
print "$value1\n";
print "$value2\n";
print "$value3\n";
 

400
500
600
 

qw//演算子

# リスト用文字列
$list = 'aaa bbb ccc';
 
# リストへ設定
@array = qw/aaa nnn $list/;
 
# リストを展開($listの変数の内容は展開されない)
foreach $value (@array){
	print "$value\n";
}
 

aaa
nnn
$list
 

---