[過去ﾛｸﾞ] bbs.cgi再開発プロジェクト6 (1001ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) ﾚｽ栞 あぼーん

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

240(2): ◆TWARamEjuA 2005/06/02(木)07:17 ID:Fiy+l0hS0(1/6) BE AAS
じっけん結果。
RegExpのコンパイルは、あまり効果がなかったみたい。

Benchmark: timing 5 iterations of a, b, c...
a: 46 wallclock secs (42.39 usr + 0.01 sys = 42.40 CPU) @ 0.12/s (n=5)
b: 43 wallclock secs (25.86 usr + 0.03 sys = 25.89 CPU) @ 0.19/s (n=5)
c: 28 wallclock secs (26.54 usr + 0.02 sys = 26.56 CPU) @ 0.19/s (n=5)
s/iter a c b
a 8.48 -- -37% -39%
c 5.31 60% -- -3%
b 5.18 64% 3% --

---

241: ◆TWARamEjuA 2005/06/02(木)07:17 ID:Fiy+l0hS0(2/6) BE AAS
#!/usr/local/bin/perl

use strict;
# use warnings;
use Jcode;
use Benchmark qw(:all);

########
# めいんるーちん
MAIN:
{
# 主要ファイル名
省11

---

242: ◆TWARamEjuA 2005/06/02(木)07:18 ID:Fiy+l0hS0(3/6) BE AAS
# 従来の方法？
sub IsKoukoku1 {
# bbs.cgi の初めのところみたいところ。
# NGファイルの読み込み
open Rock54, $Rock54_List or die "$!:[$Rock54_List]";
# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
my @Rock_word = map [ (split /<>/)[5,6,7] ] , <Rock54>;
close Rock54;

# 索敵ファイルを読み込み（operate/1064936147.datを利用[820レス/504KB]）
open DAT_File, $Rock54_DAT or die $!;
省14

---

243(1): ◆TWARamEjuA 2005/06/02(木)07:19 ID:Fiy+l0hS0(4/6) BE AAS
# あらかじめ、カナ変換をしておく。
sub IsKoukoku2{
# bbs.cgi の初めのところみたいところ。
# NGファイルの読み込み
open Rock54, $Rock54_List or die $!;
# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてカナ変換してして。
my @Rock_word =
map [ jcode->euc($_->[0], 'euc', 'z'), $_->[1,2] ],
map [ (split /<>/)[5,6,7] ],
<Rock54>;
省17

---

244: ◆TWARamEjuA 2005/06/02(木)07:19 ID:Fiy+l0hS0(5/6) BE AAS
# あらかじめ、カナ変換してRegExpをコンパイルしておく。
sub IsKoukoku3{
# bbs.cgi の初めのところみたいところ。
# NGファイルの読み込み（RegExpコンパイル済み）
open Rock54, $Rock54_List or die $!;
# NG ワード要素を NG ワード、MD5値、フラグの 3 要素だけにしてリファレンスにしてして。
my @Rock_word =
map [ qr|$_->[0]|, $_->[1,2] ],
map [ jcode->euc($_->[0], 'euc', 'z'), $_->[1,2] ],
map [ (split /<>/)[5,6,7] ],
省20

---

245: ◆TWARamEjuA 2005/06/02(木)07:23 ID:Fiy+l0hS0(6/6) BE AAS
○えんばいろめんと
jcode.plがうまく動かなかったのでJcode.pmで。

$ uname -a
Linux tierra.baila6.jp 2.4.27-0vl7.5 #1 Tue May 17 13:33:27 JST 2005 i686 unknown

$ dmesg | grep Hz
Detected 1050.026 MHz processor.
ide: Assuming 33MHz system bus speed for PIO modes; override with idebus=xx

なキカイで。。。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.035s