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