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;

# ----------------------ＨＴＭＬ-------------------

print"Content-type: text/html\n\n";

print <<__HTML__;

<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
$BODY

$aさんの、住まいは？
 
\$barney{'WAREWAN'}は、 $barney{'WAREWAN'}です。
 
$list[2](\$b)さんの、住まいは？
 
\$barney{\$b}は、 $barney{$b}です。
 
連想配列変数は、英数字。
配列は、使えない漢字もあった。英数字が、無難ですね。
 

@みんな=('WAREWAN','関東','JOHN','九州');でもOK。

</BODY>
</HTML>

__HTML__

exit;