馬鹿なので循環配列

脳みそが回らん。疲れてるのか?

print <<EOT;
循環配列
5要素の配列
画面に出力する?番目と
実際の要素ポイントが違うから
混乱しますた。
初歩。才能ないです。
知ってる。
EOT
my @a = (1,2,3,4,5);
print @a,"\n";
while(1){
	chomp(my $a = <>);
	print $a,"番目にアクセス=> ";
	print $a[($a-1) % ($#a+1)],"\n";
	
	#1,2,3,4,5,6,7,8,9, $a
	#0,1,2,3,4,5,6,7,8, $a-1
	#5,5,5,5,5,5,5,5,5, $#ar+1
	#0,1,2,3,4,0,1,2,3, %
	#1,2,3,4,5,1,2,3,4, $ar[]=>ok
}

ともかく眠くて死にそうだ。天気が良いからですかね?