ココとPerlで头びませんか(カラ〖サンプル山)

恃眶
- $age = 10;
  $name = "ココ";
  =(イコ〖ル)は洛掐です。惧はイコ〖ルの宝收 10という眶机を焊收 $age に洛掐しようとしています。
  布はココという矢机误を$nameに洛掐します。$ を烧けて、いろいろな娶を脱罢して蝗うことが叫丸るという条です。
  ≮ⅹPerl Reference: $(スカラ〖)≯
芹误
- @age = (1, 5, 10);
  @name = ("ココ", "シ〖ˇズ〖", "イヌ");
  惧は恃眶の及と票じように宝收を焊收に洛掐するものです。恃眶$とことなり芹误では @(アットマ〖ク)を蝗脱します。
  
  さて布はどのように山绩されるでしょうか。
- #!/usr/local/bin/perl print "Content-type: text/html\n\n"; @age = (1, 5, 10); @name = ("ココ", "シ〖ˇズ〖", "イヌ"); print "@age<br>\n"; print "@name<br>\n" ; exit;
- l_hensu_1.cgi
- 1 5 10 ココシ〖ˇズ〖イヌ
  染逞のスペ〖スに惰磊られて山绩されています。
  
  ではこれはどうでしょうか。
- #!/usr/local/bin/perl print "Content-type: text/html\n\n"; @age = (1, 5, 10); @name = ('ココ', 'シ〖ˇズ〖', 'イヌ'); print "@age[0]
  \n"; print "@name[0]
  \n" ; exit;
- l_hensu_2.cgi
- 1 ココ
  芹误はこのような界戎で芹弥されています。呵介は１ではなく０(ゼロ)となっています。
  
  芹误叹妥燎0戎妥燎1戎妥燎2戎
  
  name ココシ〖ˇズ〖イヌ
  
  ≮ⅹPerl Reference: @(芹误)≯

#!/usr/local/bin/perl

$title = "カラ〖サンプル山";#HTML矢今のタイトル
@color1 = ('FF', 'EE', 'DD', 'CC', 'BB', 'AA', '99', '88', '77', '66', '55', '44', '33', '22', '11', '00');
@color2 = ('00', '11', '22', '33', '44', '55', '66', '77', '88', '99', 'AA', 'BB', 'CC', 'DD', 'EE', 'FF');
$i = 0;

print "Content-type: text/html\n\n";
require 'heder.txt';# ヘッダ〖粕み哈み
print "<h2>カラ〖サンプル山</h2>\n";
print "<table border='1'>\n";
print "<tr><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td></tr>\n";
while ($i < 16) {
	print "<tr><td  bgcolor='#$color1[$i]$color1[$i]$color1[$i]'>　</td><td>#$color1[$i]$color1[$i]$color1[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color1[$i]$color2[$i]$color2[$i]'>　</td><td>#$color1[$i]$color2[$i]$color2[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color2[$i]$color1[$i]$color2[$i]'>　</td><td>#$color2[$i]$color1[$i]$color2[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color2[$i]$color2[$i]$color1[$i]'>　</td><td>#$color2[$i]$color2[$i]$color1[$i]</td></tr>\n";
$i++;
}

print "</table>\n";
require 'fotter.txt';# フッタ〖粕み哈み

exit;

bgcolor_1.cgi
≮ⅹPerl Reference: require≯

while

while (掘凤及) {掘凤及が赖しいときの帆り手し借妄}

$i = 0;

while ($i < 16) {
	print "<tr><td  bgcolor='#$color1[$i]$color1[$i]$color1[$i]'>　</td><td>#$color1[$i]$color1[$i]$color1[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color1[$i]$color2[$i]$color2[$i]'>　</td><td>#$color1[$i]$color2[$i]$color2[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color2[$i]$color1[$i]$color2[$i]'>　</td><td>#$color2[$i]$color1[$i]$color2[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color2[$i]$color2[$i]$color1[$i]'>　</td><td>#$color2[$i]$color2[$i]$color1[$i]</td></tr>\n";
$i++;
}

$i = 0;

$i は部搀帆り手したかのカウントするために蝗います。介袋猛はゼロ(芹误の黎片に圭わせてあります)。

while ($i < 16) {　}

while の掘凤は $iが16踏塔の眷圭です。

$i++;

$i++ は $i に１を裁换する罢蹋で

$i = $i + 1

と票じ罢蹋になります。

芹误(2)

@color1 = ('FF', 'EE', 'DD', 'CC', 'BB', 'AA', '99', '88', '77', '66', '55', '44', '33', '22', '11', '00');
@color2 = ('00', '11', '22', '33', '44', '55', '66', '77', '88', '99', 'AA', 'BB', 'CC', 'DD', 'EE', 'FF');

惧の@color1と@color2は界戎が嫡なだけです。@color1を黎片からでなく、お姜いのデ〖タから粕めれば企硷梧の恃眶を肋年をする涩妥はありませんね。
黎ほど布のように棱汤をしました。

芹误叹妥燎0 妥燎1 妥燎2

name ココシ〖ˇズ〖イヌ

しかし、このようにも蝗脱することができます。

芹误叹妥燎0戎妥燎1戎妥燎2戎

name ココシ〖ˇズ〖イヌ

芹误叹妥燎-3戎妥燎-2戎妥燎-1戎

黎片から眶える箕はゼロから、呵稿から眶える箕はマイナス１からとなります。

#!/usr/local/bin/perl

$title = "カラ〖サンプル山";#HTML矢今のタイトル
@color1 = ('FF', 'EE', 'DD', 'CC', 'BB', 'AA', '99', '88', '77', '66', '55', '44', '33', '22', '11', '00');
$i = 0;

print "Content-type: text/html\n\n";
require 'heder.txt';# ヘッダ〖粕み哈み
print "<h2>カラ〖サンプル山</h2>\n";
print "<table border='1'>\n";
print "<tr><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td></tr>\n";
while ($i < 16) {
	print "<tr><td  bgcolor='#$color1[$i]$color1[$i]$color1[$i]'>　</td><td>#$color1[$i]$color1[$i]$color1[$i]</td><td>　</td>";
	print "<td  bgcolor='#$color1[$i]$color1[-($i+1)]$color1[-($i+1)]'>　</td><td>#$color1[$i]$color1[-($i+1)]$color1[-($i+1)]</td><td>　</td>";
	print "<td  bgcolor='#$color1[-($i+1)]$color1[$i]$color1[-($i+1)]'>　</td><td>#$color1[-($i+1)]$color1[$i]$color1[-($i+1)]</td><td>　</td>";
	print "<td  bgcolor='#$color1[-($i+1)]$color1[-($i+1)]$color1[$i]'>　</td><td>#$color1[-($i+1)]$color1[-($i+1)]$color1[$i]</td></tr>\n";
$i++;
}

print "</table>\n";
require 'fotter.txt';# フッタ〖粕み哈み

exit;

bgcolor_2.cgi
惧のように $color2 の恃眶の离咐が涩妥なくなりました。
$color1[-($i+1)]
で芹误の嫡から艰り哈んでいます。

foreach

foreach 恃眶 (リスト) {帆り手し借妄}
帆り手しの借妄として while を蝗脱しましたが、戮に foreach もあります。while は、ある掘凤を塔たしている粗に借妄を帆り手しますが foreach は芹误やリストの称妥燎に滦する帆り手しの借妄を乖います。

foreach (@color1)
は
foreach $_ (@color1)
の臼维妨です。
恃眶は臼维することもでき、臼维されたときのデフォルトの恃眶は $_ で附されます。

#!/usr/local/bin/perl

$title = "カラ〖サンプル山";#HTML矢今のタイトル
@color1 = ('FF', 'EE', 'DD', 'CC', 'BB', 'AA', '99', '88', '77', '66', '55', '44', '33', '22', '11', '00');
@color2 = ('00', '11', '22', '33', '44', '55', '66', '77', '88', '99', 'AA', 'BB', 'CC', 'DD', 'EE', 'FF');
$i = 0;

print "Content-type: text/html\n\n";
require 'heder.txt';# ヘッダ〖粕み哈み
print "<h2>カラ〖サンプル山</h2>\n";
print "<table border='1'>\n";
print "<tr><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td><td>　</td><td>咖斧塑</td><td>咖コ〖ド</td></tr>\n";
foreach (@color1) {
	print "<tr><td  bgcolor='#$_$_$_'>　</td><td>#$_$_$_</td><td>　</td>";
	print "<td  bgcolor='#$_$color1[-($i+1)]$color1[-($i+1)]'>　</td><td>#$_$color1[-($i+1)]$color1[-($i+1)]</td><td>　</td>";
	print "<td  bgcolor='#$color1[-($i+1)]$_$color1[-($i+1)]'>　</td><td>#$color1[-($i+1)]$_$color1[-($i+1)]</td><td>　</td>";
	print "<td  bgcolor='#$color1[-($i+1)]$color1[-($i+1)]$_'>　</td><td>#$color1[-($i+1)]$color1[-($i+1)]$_</td></tr>\n";
$i++;
}

print "</table>\n";
print qq|<br><a href="./bgcolor_text.cgi">テキストの咖仑え</a>もあります。\n|;
require 'fotter.txt';# フッタ〖粕み哈み

exit;

bgcolor_3.cgi
≈カラ〖サンプル山∽の布に、肌の鞠で棱汤する≈テキストの咖仑え∽へのリンクが烧いています。

芹误叹	妥燎0戎	妥燎1戎	妥燎2戎
name	ココ	シ〖ˇズ〖	イヌ

芹误叹	妥燎0	妥燎1	妥燎2
name	ココ	シ〖ˇズ〖	イヌ