馬鹿なので循環配列
脳みそが回らん。疲れてるのか?
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 }
ともかく眠くて死にそうだ。天気が良いからですかね?