- 205 名前:デフォルトの名無しさん mailto:sage [2016/06/12(日) 21:49:23.64 ID:0HO5/jac.net]
- $ perl -le ' sub ps { print `ps ux $$`}; ps ; open my $h, ">", "test.txt" ; for( 0 .. 9999999 ){ print {$h} "h" } ; ps ;'
USER PID %CPU %MEM VSZ RSS TT STAT STARTED TIME COMMAND XXXXX 40081 7.0 0.1 2445400 3324 s002 R+ 9:36PM 0:00.09 perl -le sub ps { print `ps ux $$`}; ps ; open my $h, ">", "test.txt" ; for( 0 .. 9999999 ){ print {$h} "h" } ; ps ; USER PID %CPU %MEM VSZ RSS TT STAT STARTED TIME COMMAND XXXXX 40081 96.8 0.1 2445400 3340 s002 S+ 9:36PM 0:03.08 perl -le sub ps { print `ps ux $$`}; ps ; open my $h, ">", "test.txt" ; for( 0 .. 9999999 ){ print {$h} "h" } ; ps ; $ ls -alh test.txt -rw-r--r-- 1 XXXXX staff 19M 6 12 21:36 test.txt 今の時代の強力なマシンだろうが、こんだけ負担をかける事は、一昔前の人間だったら常識の範囲。 ちなみにフラッシュしようが、出力される量は変動しないんだから、 HDDの負担は変らん。と何回指摘されりゃ気が済むんだ?
|
|