ファイル名: w/barney.cgi
#!/usr/local/bin/perl
# ----------------------------------------------
$Title = '%barney';
$BODY = '<BODY BGCOLOR="#000000" TEXT="#C0C0C0">';
# ------------------- 関数 hogehoge ---------------
$a = 'WAREWAN';
$b = 'JOHN';
$c = '関東';
$d = '九州';
@list= ('WAREWAN','関東','JOHN','九州');
%barney = @list;
# ----------------------HTML-------------------
print"Content-type: text/html\n\n";
print <<__HTML__;
<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
$BODY
$aさんの、住まいは?
<BR><BR>
\$barney{'WAREWAN'}は、 $barney{'WAREWAN'}です。
<BR><BR>
$list[2](\$b)さんの、住まいは?
<BR><BR>
\$barney{\$b}は、 $barney{$b}です。
<BR><BR>
連想配列変数は、英数字。
配列は、使えない漢字もあった。英数字が、無難ですね。
<BR><BR>
<font color="FFF000" size="5">
@みんな=('WAREWAN','関東','JOHN','九州');でもOK。
</font>
</BODY>
</HTML>
__HTML__
exit;