> > print substr($a,13,4)             , "(a)\n";
> > print $b - 1                      , "(b)\n"; 
> > print $c->[2]                     , "(c)\n";
> > print grep{ $_ == 2001} keys %$d  , "(d)\n";
> > print $e->()[2]                   , "(e)\n";
> > print $f                          , "(f)\n";
> > print join('',split(' ',$g))      , "(g)\n";
> > print unpack('C*',$h)             , "(h)\n";
> > print $$i                         , "(i)\n";
> > print scalar reverse($j)          , "(j)\n"; 
> > print                             , "(k)\n"; # 依然としてわかんねー
> > よう、さらに改良した。
> > 最後の問題だけわかんねー
> > 型グロブへのリファレンスだってのはわかるけど
> > 「変数名」をどうやって取りだせばいいんだ？
> 俺もkだけ分からなかった。
> 解答はさっきのURAから確認してくれ。
> 見れば、ああそうだよな、と思えるんだが(;´Д`)
> (´Д`)＜そんなんじゃだめだ

*{$k}{NAME}
って一体なんだ？{NAME}ってのはマジカルなのか？
Perlはマジカルが多すぎて嫌い。

参考：2001/02/14(水)03時01分33秒