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

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

Perlについての質問箱 30箱目 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

773:デフォルトの名無しさん
 07/05/23 17:35:38 
Webサーバー（Webブラウザ）使うのが必要条件なのかにもよるな。 
Excelでも十分かもしれん。

774:デフォルトの名無しさん
 07/05/23 17:42:02 
local環境でいいんなら、1行読んで、25行ぐらい改行してからprintするだけじゃないの？ 
で、sleep(5)とか

775:デフォルトの名無しさん
 07/05/23 18:14:28 
>>773 
excel だけど win は一万行平気で開く？ 
 
cat -n hoge.log | more で十分だったりw

776:デフォルトの名無しさん
 07/05/23 18:26:06 
>>772 
ラクダ本3版Volume2に訳が出てるお

777:デフォルトの名無しさん
 07/05/23 18:39:22 
>>774 
本当はそんな感じ（と、行番号カウンタか）でいいんだと思うよ。 
Web鯖に吐かせるべき理由があるんだかどーなんだか。

778:デフォルトの名無しさん
 07/05/23 18:45:09 
webprog板でgrepとmapだとgrepの方が早いという意見があり確認してみました。 
for >= grep > mapって感じみたいなのですがなんでmapだけこんなに遅いのでしょう？ 
 
■テストコード 
use Benchmark qw/cmpthese/;  
use strict; 
use warnings; 
my $LOOP = 100; 
my @SEED = ('a'..'z','A'..'Z',0..9); 
my @DATA = map {$SEED[int rand @SEED]} 1..10000; 
my %TABLE = map {$_=>$SEED[int rand @SEED]} @SEED; 
cmpthese($LOOP, { 
 #非破壊 
 'map1' => sub {my @hoge = map { $TABLE{$_} } @DATA; 1;}, 
 'grep1' => sub {my @hoge;grep push(@hoge,$TABLE{$_}),@DATA;1;}, 
 'for1' => sub {my @hoge;push(@hoge,$TABLE{$_}) for(@DATA);1;}, 
 #破壊 
 'map2' => sub {map {$_=$TABLE{$_}} @DATA ;1;}, 
 'grep2' => sub {grep $_=$TABLE{$_},@DATA;1;}, 
 'for2' => sub {$_ = $TABLE{$_} for(@DATA);1;}, 
});

次ページ