#!/usr/local/bin/perl
# -----------------------------------------------------------------------------
# 文字列の分解 ｓｐｌｉｔ （ファイル名： array2.cgi ）
# -----------------------------------------------------------------------------
$Title = '配列（２）';
# ------------------- @members_s にメンバーを代入 ------------------------
$bandname = "BEATLES";
$members = "John&Paul&George&Ringo";
@members_s = split(/&/,$members);
# ----------------------ＨＴＭＬ------------------------------
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>
ギター１ ： $members_s[0]<P>
ベース ： $members_s[1]<P>
ギター２ ： $members_s[2]<P>
ドラム ： $members_s[3]<P>
</BLOCKQUOTE>
</P>
</BODY>
</HTML>
__HTML__
exit;