４．６ foreach（ループ）

foreachループでは、配列の要素を処理します。

＜foreach構文＞
foreach 変数 (配列){
    プログラムブロック（全配列要素が読み込まれるまで、繰り返し実行される）
}

配列の要素を先頭から順番に変数に代入する
注意：代入した変数の内容を変更すると配列要素も変更される

行番号 ＣＧＩプログラム 解　　　説
1 #!/usr/local/bin/perl5 １行目は必ずPerlプログラムのある場所を記入
2 #foreachの使い方 #の右側の文字列はコメント
3 print "Content-type: text/html\n\n"; print文でブラウザへタグ文字列を送っています
4 print "<HTML>\n";
5 print "<HEAD>\n";
6 print "<TITLE>foreachループ</TITLE>\n";
7 print "</HEAD>\n";
8 print "<BODY>\n";
9 @list=("one","two","three","four","five"); 配列の初期化
10 foreach $num (@list){
11     print "$num<BR>\n"; 配列要素を順番に表示
12     if($num eq ""){
13         $num="xxxx"; 配列要素の書き換え
14     }
15 }
16 foreach $num (@list){
17     print"$num<BR>\n";
18 }
19 print "</BODY>\n";
20 print "</HTML>\n";

戻る　次へ