Perlについての質問箱 38箱目
レス数が950を超えています。1000を超えると書き込みができなくなります。
0983デフォルトの名無しさん
2009/01/18(日) 12:36:24print +($str =~ /\G.*\n/g)[0..$n-1];
ついでに質問だが、実行フェーズでグローバルでリードオンリーな定数定義する方法
にはどんなのがありますか？
BEGIN { *HOGE = sub () { } }
$hoge = get_hoge();
no warnings 'redefine';
*HOGE = sub () { $hoge };
これをもう少しスマートに書きたい
レス数が950を超えています。1000を超えると書き込みができなくなります。