Perlで配列をさわると・・

よもやま — Sun, 30 Dec 2007 00:07:00 GMT

じいさん「婆(var)さんや良い真珠があるそうじゃ」
婆さん「良い真珠と言っても、その真珠はいつのじゃ？」

#え～っと、スルーの方向で一つ・・（＠＿＠）；
Perlで配列を使ってみましょう。
#ずいぶん久し振りすぎで、ハッシュの記述を忘れていたとか。。

@aryYears = (2000 .. 2007);

print "初期時点の配列:";
foreach $year (@aryYears) {
print "$year ";
}
print "\n";

#データ追加1
push (@aryYears, 2008);
#データ追加2
unshift(@aryYears, 1998);

foreach $year (@aryYears) {
print "$year ";
}

print "\n";

改めてみるとなんだかすっきりしてます。
当時（？）は、C++やVBにどっぷりだったので
「え～」という驚きでした。
かなり前からPerlはあるのに知らなかったという。。
まぁ、配列ですから、すっきり見えてて当然なのかもしれません。
#どこがvarとつながるの？
#いや何となくです。。

#ActivePerl 5.10.0.1001で動作確認しました。