#! /usr/bin/perl

# サンプル配列
@samplearray = ( "晴れ", "くもり", "雨", "雪" );

# 要素数を表示
&showarrays();

# 配列を空にする処理（間違い）
@samplearray = "";

# 要素数を表示
&showarrays();

# 配列を空にする処理（正解）
@samplearray = ();

# 要素数を表示
&showarrays();

exit;

sub showarrays()
{
	print "配列の要素数は、" . ( $#samplearray + 1 ) . "個です。（";
	print join( ",", @samplearray );
	print "）\n";
}