ファイル名: 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;