CGI講座

ループ

ループはwhile、until、for、foreachです。
例：　while ($k<10) { }
　　　for ($k=0; $k<10; $k++) { }
　　　foreach $data (@data) {print $data;}
　　　foreach (@data) {print $_;}　　　$dataを省略すると$_が使われます。
　　　foreach (0 .. 9) {print $_;}
ループを途中で抜けたい場合はlast、ループ処理を次へスキップしたい場合はnextを使用します。

■プログラム（sample14.cgi）

$k = 0; while ($k<10) {print $k; $k++;} print " ";
for ($k=0; $k<10; $k++) {print $k;} print " ";
@data = ('A','B','C');
foreach $data (@data) {print $data;} print " ";
foreach (@data) {print $_;} print " ";
foreach (0 .. 9) {print $_;} print " ";
foreach (0 .. 9) {
if ($_ == 5) {last;}
print $_;
}
print " ";
foreach (0 .. 9) {
if ($_ == 5) {next;}
print $_;
}

■実行結果

0123456789
0123456789
ABC
ABC
0123456789
01234
012346789

HOME	Copyright (C) CGI-design All Rights Reserved.