ファイル名: j/array2.cgi
#!/usr/local/bin/perl
# -----------------------------------------------------------------------------
# 文字列の分解 split (ファイル名: array2.cgi )
# -----------------------------------------------------------------------------
$Title = '配列(2)';
# ------------------- @members_s にメンバーを代入 ------------------------
$bandname = "BEATLES";
$members = "John&Paul&George&Ringo";
@members_s = split(/&/,$members);
# ----------------------HTML------------------------------
print"Content-type: text/html\n\n";
print <<__HTML__;
<HTML>
<HEAD>
<TITLE>$Title</TITLE>
</HEAD>
<BODY bgcolor="#000000" text="#ffff99">
-------------------------------------------------- <BR>
スカラー変数 : \$bandname = "BEATLES";<BR>
スカラー変数 : \$members = "John&Paul&George&Ringo";<BR>
<P>
<P>
split で メンバーをバラバラに\$members_s[0]〜[3]に代入!
<P>
配列変数 : \@members_s = split(/&/,\$members);<BR>
-------------------------------------------------- <BR>
<P>
バンドの名前 : $bandname<BR>
<BR>
バンドの全員 : $members<BR>
<BR>
<BR>
メンバー紹介<BR>
<P>
<BLOCKQUOTE>
ギター1 : $members_s[0]<P>
ベース : $members_s[1]<P>
ギター2 : $members_s[2]<P>
ドラム : $members_s[3]<P>
</BLOCKQUOTE>
</P>
</BODY>
</HTML>
__HTML__
exit;