見るともなく古いファイルを見ていたら、変なコードを見つけた。



1
2
3
4
5
6
7
8
9
10
11
12
13
sub get_1 {print 'a'; 1;}
sub get_2 {print 'b'; 2;}
sub get_3 {print 'c'; 3;}
print get_1;
print get_2;
print get_3;
print "n";
print "-----n";
print get_1,
get_2,
get_3,
"n";
print "-----n";


なんだろう?と思って実行してみてびっくりした。



どこかで見た記憶があったので探してみたら、「a geek - perlの評価順」だった。



同じネタで何度もびっくりしてしまうのは、記憶力の欠如ですか?