| 行番号 |
|
ＣＧＩプログラム |
解 説 |
| 1 |
|
#!/usr/local/bin/perl5 |
１行目は必ずPerlプログラムのある場所を記入 |
| 2 |
|
#その他演算子の使い方 |
#の右側の文字列はコメント |
| 3 |
|
$a = "Test"; |
|
| 4 |
|
$ans1 = $a // ; |
バインド演算子 パターンマッチングについては、後の学習で詳しく解説 |
| 5 |
|
@ans2 = ( .. ) ; |
範囲演算子 |
| 6 |
|
@ans3 = (1,2,3,4,5) ; |
カンマ演算子 |
| 7 |
|
$ans4 = > ? "True" : "False"; |
条件演算子 |
| 8 |
|
print "Content-type: text/html\n\n"; |
後の学習で解説 |
| 9 |
|
print "<HTML>\n"; |
print文でブラウザへタグ文字列を送っています |
| 10 |
|
print "<HEAD>\n"; |
|
| 11 |
|
print "<TITLE>その他演算子演習</TITLE>\n"; |
|
| 12 |
|
print "</HEAD>\n"; |
|
| 13 |
|
print "<BODY>\n"; |
|
| 14 |
|
print '$ans1='."$ans1<BR>\n"; |
$ans1をブラウザに表示 |
| 15 |
|
print "$ans2[0..9]<BR>\n"; |
$ans2をブラウザに表示 |
| 16 |
|
print "$ans3[0..4]<BR>\n"; |
$ans3をブラウザに表示 |
| 17 |
|
print '$ans4='."$ans4<BR>\n"; |
$ans4をブラウザに表示 |
| 18 |
|
print "</BODY>\n"; |
|
| 19 |
|
print "</HTML>\n"; |
|
|
|
|
|