Perlについての質問箱 37箱目

Perlについての質問箱 37箱目 at TECH

716:デフォルトの名無しさん
08/09/08 05:58:40
use feature qw( :5.10 );
system q|cls|;
open FH,">","4.txt";

for (1..12000000) {
state $a="a";
print FH $a," ";
$a++;
}
#--------------------------

↑これで１千２百万回まわしたら、
７０MBのテキストファイルになって、
エディタで開いたら表示がぶっ壊れた

URLﾘﾝｸ(kazato.run.buttobi.net)

次ページ

続きを表示

1を表示