| 行番号 |
|
ＣＧＩプログラム |
解 説 |
| 1 |
|
#!/usr/local/bin/perl5 |
１行目は必ずPerlプログラムのある場所を記入 |
| 2 |
|
#パターンマッチの使い方 |
#の右側の文字列はコメント |
| 3 |
|
print "Content-type: text/html\n\n"; |
print文でブラウザへタグ文字列を送っています |
| 4 |
|
print "<HTML>\n"; |
|
| 5 |
|
print "<HEAD>\n"; |
|
| 6 |
|
print "<TITLE>文字列その他</TITLE>\n"; |
|
| 7 |
|
print "</HEAD>\n"; |
|
| 8 |
|
print "<BODY>\n"; |
|
| 9 |
|
$str1="sunday,monday,tuesday,wednesday"; |
$str1に文字列を設定 |
| 10 |
|
$str2="This is a pen."; |
$str2に文字列を設定 |
| 11 |
|
@week=split /,/,$str1; |
配列@weekに,(カンマ)で区切った文字列を各要素として格納 |
| 12 |
|
($sunday,$monday,$tuesday,$wednesday)=split
/,/,$str1; |
,(カンマ)で区切った文字列を個別のスカラー変数に格納 |
| 13 |
|
$new_str=join "",@week; |
配列@weekを連結 |
| 14 |
|
$str2=~tr///; |
文字列の変換(この例では小文字を大文字へ) |
| 15 |
|
print "week[2]=$week[2]<BR>\n";
|
配列@weekの3番目の要素を表示 |
| 16 |
|
print "week=$sunday,$monday,$tuesday,$wednesday<BR>\n";
|
$str1を分解した結果を表示 |
| 17 |
|
print "new_str=$new_str<BR>\n";
|
配列@weekの連結結果を表示 |
| 18 |
|
print "str2=$str2<BR>\n";
|
$str2を変換した結果を表示 |
| 19 |
|
print "</BODY>\n"; |
|
| 20 |
|
print "</HTML>\n"; |
|
|
|
|
|