Array(配列)


		変数には @ をつける
		初期化する

		@a = ( 1, 2, 3 )

#  異なる型が混在してもいい
		@a = ( 1, "aaa", 2 )



	SYNTAX
		foreach 制御変数 ( リスト値 ) { 実行 }
		foreach scalar ( array ) { statement }


		イテレートする	

		foreach $i (3, 2, 1)
		{
				print "count $i \n"; 
		}


	WARNING
		配列の () は必須

		my @a = ( 1, 2, 3 )
		foreach $i ($a)
		{
				print "$i \n"; 
		}


 



#  追加
		push( @a, 10 );

#  末尾削除
		pop( @a );

#  先頭追加
		unshift( @a, 10 );

#  先頭削除
		shift( @a );

#  反転
		reverse( @a );

#  sort 
		sort( @a );

#  参照( index 0 から始まる )
		$a[ 0 ] );

#  要素数
#      配列のスカラに代入すればとれる
		my $nr = @a;


#  展開
#      区切り指定
		$" = '_';
		my $ret = "@a";



	




 Main.関数の引数


#  Main Argument






 argument



			my $i;
			for ( $i=0; $i<=$#ARGV; $i++ ) {
				print @ARGV[$i], "\n";
			}

			my $i;
			for ( $i=0; $i<=$#ARGV; $i++ ) {
				print $ARGV[$i], "\n";
			}


		スクリプトをコールする

		arg.pl  aaa bbb ccc