幸せサーバープロジェクト　「アイデア・技術のある人募集中」★4

● ◆SUAMA.Cbav5m **＠SUAMA ★** · 2009/06/28(日) 00:06:42

どんなにむずかしくても
あいでぃあだして
みんなでやればできるよ！
　　　　　　　　　　　　　　　　ﾊ_ﾊ
　　　　　　　　　　　　　　　('(ﾟ∀ﾟ∩　できるよ！
　　　　　　　　　　　　　　　　ヽ　　〈
　　　　　　　　　　　　　　　　　ヽヽ_)

まえすれ
幸せサーバープロジェクト　「アイデア・技術のある人募集中」★3
http://qb5.2ch.net/test/read.cgi/operate/1241361889/

**NAO ★** · 2009/11/07(土) 22:48:03

>>699
こうなるんですかね？

元文字列
　\.s([0-24-9]\d).a(\d+).ap.plala.or.jp<>others
　\d{6}.ap.plala.or.jp<>or.jp
　(.+\.s30.a\d+.ap.plala.or.jp)<>BBQ

　置換↓s/(?!\\)\./\\./g

置換後の文字列
　\\\.s([0-24-9]\d)\\.a(\d+)\\.ap\\.plala\\.or\\.jp<>others
　\d{6}\\.ap\\.plala\\.or\\.jp<>or\\.jp
　(\\.+\\\.s30\\.a\d+\\.ap\\.plala\\.or\\.jp)<>BBQ

♪ ◆/y.Ychk2JQ **＠brigitta ★** · 2009/11/07(土) 23:14:33

**NAO ★** · 2009/11/07(土) 23:17:37

お、何か上手く動いた

while (総当りの時の条件らしき何か) {
　　なんかいろいろ;
　　　　：
　　　　：
　　if (preg_match("($seikihyougen)", $host)) {
　　　　ホスト内で文字列が見つかった時のルーチン;
　　　　}
　}

preg_match の使い方が間違ってたっぽい

**trick ★** · 2009/11/07(土) 23:33:11

NAOさんlist.txtあれで大丈夫でしたか？

>>708
サンドラ・ブロックな気分です。

**動け動けウゴウゴ２ちゃんねる** · 2009/11/07(土) 23:34:32

>>711
出力側を ip$1 にすればいいんでない？

♪ ◆/y.Ychk2JQ **＠brigitta ★** · 2009/11/07(土) 23:44:20

>>714
あーそれなら大丈夫ですね

ip(ad|bf|bfp|ngn|gvpnf)?\d+(\w+).(\w+).ocn.ne.jp
(ip(?:ad|bf|bfp|ngn|gvpnf)?)\d+(\w+).(\w+).ocn.ne.jp
(ip|ipad|ipbf|ipbfp|ipngn|ipgvpnf)\d+(\w+).(\w+).ocn.ne.jp

どれが見やすいかしら？

♪ ◆/y.Ychk2JQ **＠brigitta ★** · 2009/11/07(土) 23:47:20

真ん中はないとして上か下。

で、上でも可読性はおちないなぁと思ったので、上に変更してきました。

**NAO ★** · 2009/11/07(土) 23:49:57

上手くいきそうに見えたのは一瞬だけだった
あばばば

>>713
多分大丈夫ではないかとー

**動け動けウゴウゴ２ちゃんねる** · 2009/11/08(日) 00:15:44

完全一致、後方一致、前方一致の3回マッチングさせる
$host：　ログの6番目（●ID抜き）を入れる
$value[0-2]：　マッチ文字列、表示用マッチ文字列、種別を入れる（配列）
$HostRep：　正規表現を入れる
#---まとめ用変換---START
if($value[1]==''){//表示用マッチ文字列が無い場合は、マッチ文字列を入れる
$HostRep = $value[0];
}else{
$HostRep = preg_replace("/^".$value[0]."$/",$value[1],$host);
if($HostRep == $host){
$HostRep = preg_replace("/^.+".$value[0]."$/",$value[1],$host);
if($HostRep == $host){
$HostRep = preg_replace("/^".$value[0].".+$/",$value[1],$host);
以下略

**Treat** ◆??? · 2009/11/08(日) 01:03:31

先読み系は結構ミスりやすいし危険よねw

こんどは、http://imo.70.kg/imocut/ のフォーム
<input type=text size="70" name="url" value="規制議論板の芋ログURLをレス番指定して入れてください">
の改善案 (デフォルト文を消すスクリプト、タグ内に追加するだけ)
onfocus="if (this.value == '規制議論板の芋ログURLをレス番指定して入れてください') this.value = '';" onblur="if (this.value == '') this.value = '規制議論板の芋ログURLをレス番指定して入れてください';"

**NAO ★** · 2009/11/14(土) 23:45:31

めも

判定対象一件追加＠予定

sec2chd/1258031071/98
えすめらるだ ★：2009/11/14(土) 21:46:18 ID:???0 ?PLT(12222)

/めも

**trick ★** · 2009/11/15(日) 01:10:54

なんか懐かしい名前だなぁと思ったら未承諾さんかｗ

**NAO ★** · 2009/11/16(月) 00:32:58

使われてないアカウントのパスワードを変更してみるテスト

**NAO ★** · 2009/11/16(月) 00:43:42

genocide が使われていないので、passを変更　←　完了

**NAO ★** · 2009/11/16(月) 00:53:45

未承諾さんにメール送ろうとしたら、返って来ちゃった。

壁|ω・｀)｡oO(どうしよう・・・)

◆MaMiRaoFSwbB · 2009/11/16(月) 01:04:32

みくし使えばいんじゃね？

**NAO ★** · 2009/11/16(月) 01:08:12

大事な文字列送るには不安だったり

# また明日考えますー

**Treat** ◆??? · 2009/11/16(月) 01:57:27

公開鍵認証してへんのか?

● ◆SUAMA.Cbav5m **＠SUAMA ★** · 2009/11/16(月) 09:55:20

>>723
りょうかーい。
こっちで持っているアカウント情報は破棄しますー。

>>724
未承諾-adぐるぐるの方？
# おいら達に知られても構わないってならimoに書き置きとか。見ないけど。

**NAO ★** · 2009/11/19(木) 02:35:32

genocideの再設定したアカウントを某所に置いておきました。
未承諾さん、ご確認下さい。

おまけ。
http://qb5.2ch.net/test/read.cgi/sec2chd/1258522299/
この件で使われたんじゃないかなっていうtorのリストを、精製して新居に置いておきました。
精製はしましたが精査はしてないので、被りがあるかも知れませんが、某所に流し込んでくださると幸いです。

**NAO ★** · 2009/11/19(木) 02:37:28

genocide の垢は、これ関係でたしにしてもらえると幸いです。
http://qb5.2ch.net/test/read.cgi/operate/1246544131/659

# 処理能力的には、こちらの方が勝っているはず・・・
# こちらで処理して、向こうへ送ると言う形なら、もしかしたら負荷軽減の予感？

**NAO ★** · 2009/11/19(木) 02:39:35

余談ですが、こらこらの●版みたいなのがあるといいかもですね。
# または、torだと●でもお断りにするとかの、torの特別扱いがあれば良いのかもとかとか思ったり

**動け動けウゴウゴ２ちゃんねる** · 2009/11/19(木) 04:42:52

BBQの中でtorリストは特別扱いしてAレコードを変えるとか、小細工的な仕掛けは考えられるけど
sec2chdは自動車で言うところのクラッシャブルゾーンの役割を果たしているわけで
最近暴れている彼にも2chの荒らし対策の妙を学んでほしいと思うのです
一見すると非効率で穴だらけに見える人海戦術をメインにしているのはなぜかなどなど

**動け動けウゴウゴ２ちゃんねる** · 2009/11/20(金) 00:37:03

中西くんが♪の人みたいな考えもてたら剥奪されなくてすんだのにね

◆TWARamEjuA · 2009/11/24(火) 00:56:04

魚っ、、、どこだろう、、、（汗）

>>724
エラーメッセージが判ると有り難いですです。。。
ちなみに逆引き不可なホストは弾いています。。。
spamcop、rbl.jpも入れてますです。。。＠ねずみ(Postfix)

◆NAO/2MXDEk · 2009/11/24(火) 01:30:33

>>734
芋鯖の中にお手紙があるので、どぞー

[―{}@{}@{}-] **ぞうさん** · 2009/11/24(火) 01:32:35

規制議論板から誘導されてきました。

この板を荒らした方が面白い反応が得られそうなので、これから数ヶ月間あの手この手で荒らし続けます。

これはほんの挨拶代わりのコピペマルチポポポです。

どうか面白い反応で楽しませてください。

以上、苦情は規制議論板まで。

**動け動けウゴウゴ２ちゃんねる** · 2009/11/24(火) 02:38:15

fusianasanしていってよー

**NAO ★** · 2009/11/30(月) 02:46:43

▼ 報告人★サポートとしてのメールアドレス配布(案)

・目的
　報告人★の精神的リスクの軽減、及び、メールアカウントの分割による整理効果。

・手法
　新規アカウントを1つ設置。
　希望する報告人にメールアカウントを配布。

・配布条件
　先ずは希望する報告人★への配布。

・手順
　0.　返事待ち　http://qb5.2ch.net/test/read.cgi/sec2chd/1259231503/528
　　　i.　こっちからも何か送るべきかな？
　1.　アカウントを決める
　　　i.　何か意味をこめて考えたい所
　2.　受付の方法を考える
　　　i.　今のところ、スレを立てて、メールで公募の予定
　3.　募集開始＠先ずは期限付きでテスト
　4.　設定と配布
　　　i.　送ったら必ずもらえるという状態ではなく、
　　　　一応基準に達している必要がある形にすべきかな

♪ ◆/y.Ychk2JQ **＠brigitta ★** · 2009/11/30(月) 19:57:20

転載しときます。。。

規制人よりてっさが美味しい季節ﾊﾞﾝﾁﾞｬい ∩( ・ω・)∩ 芋82本目
http://qb5.2ch.net/test/read.cgi/sec2chd/1259231503/757

757 名前：案内人チャーミー ★[sage] 投稿日：2009/11/30(月) 17:43:36 ID:???0
>>528
「報告用にhotmailやらgmailやらを使うとか。。」という返事がきました。

今回の仙台のような件が今後起こるか、可能性がゼロではない以上、
私もそれでいいような気がしました。
どうでしょう？＞オール報告人さん

♪ ◆/y.Ychk2JQ · 2009/11/30(月) 19:58:41

メ欄に何かいたようです。

**動け動けウゴウゴ２ちゃんねる** · 2009/11/30(月) 21:41:15

　　　　 ●　●　 ●　●
　　　　 (・∀・ )　(・∀・ )
　　　　　ヽﾉ）　　ヽﾉ）
　　　　　　l l　　　　l l

◆NAO/2MXDEk · 2009/12/01(火) 00:48:20

>>739
選択肢の一個で良いんじゃないですかね@メール設定

**動け動けウゴウゴ２ちゃんねる** · 2009/12/01(火) 00:50:30

.70.kgってキルギスタンのサーバー？

**NAO ★** · 2009/12/01(火) 01:14:56

@の後ろの案

report.70.kg
information.70.kg
info.70.kg

どれが良いかな？

**Treat** ◆??? · 2009/12/01(火) 02:10:18

report++

**動け動けウゴウゴ２ちゃんねる** · 2009/12/01(火) 03:31:26

mekata.70.kg
とか冗談は置いといて普通にinfoでいいんじゃないの。
あとreportよりnotifyの方が近い気もする。

**動け動けウゴウゴ２ちゃんねる** · 2009/12/01(火) 03:33:52

garnetの人が国内に鯖用意してくれるならそっちの方がいいんじゃない？

♪ ◆/y.Ychk2JQ · 2009/12/01(火) 12:17:13

話からするとフリメレベルでOKってことだし、
ひとつに限定せず使いたいところを使うでいいんじゃない？

**動け動けウゴウゴ２ちゃんねる** · 2009/12/01(火) 14:42:57

迷惑メールふぃるたできるしGmail+独自ドメインでいいんじゃ
@2ch.netもそれに乗り換えたんだよね

**NAO ★** · 2009/12/02(水) 01:27:50

未承諾さんにメールが送れない理由、もしかしてメールアドレス内に大文字が入ってるからかも？

◆TWARamEjuA · 2009/12/02(水) 07:18:31

>>750
エラーメッセージぷりーず♪

◆NAO/2MXDEk · 2009/12/02(水) 07:53:25

>>751
#一部分面修正

Hi. This is the qmail-send program at [幸せサーバー].
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up. Sorry it didn't work out.

<未承諾さんのメールアドレス>:
[(多分)そちらのIP] does not like recipient.
Remote host said: 550 5.1.1 <未承諾さんのメールアドレス>: Recipient address rejected: User unknown in local recipient table
Giving up on [(多分)私のIP].

--- Below this line is a copy of the message.

[以下省略]

◆NAO/2MXDEk · 2009/12/02(水) 08:09:34

文面、でした

◆TWARamEjuA · 2009/12/03(木) 22:21:28

うーざーあんのうんでしたら、、、
mishowdaq-ad@
これであっていますぅ？
誤登録されてませんか？

◆TWARamEjuA · 2009/12/03(木) 22:25:16

あ、これかぁ。。。
Dec 2 07:38:27 fiego postfix/smtpd[32101]: NOQUEUE: reject:
RCPT from tiger3523.maido3.com[206.223.150.130]: 550 5.1.1 <TWARamEjuAめbaila6.jp>: Recipient address rejected: User unknown in local recipient table;
from=<***めhappy.70.kg> to=<TWARamEjuAめbaila6.jp> proto=SMTP helo=<tiger3523.maido3.com>

そんなアドレス作ったことがあったよなぁ（遠い目）

**NAO ★** · 2009/12/04(金) 01:05:11

ちょwwwなんと言うオチwwww

**trick ★** · 2009/12/09(水) 02:10:05

さて、寝る前に質問ー、眠くて頭が回らないー

とある変数の文字列、例えば　$a="すあまさんは$1の$2が好き";　のように特殊変数とかが文字として入っているものに
マッチした結果を参照させるばやいはどうすりゃいいべ？

◆TWARamEjuA · 2009/12/09(水) 07:14:13

>>757
よく判らないのでてきとーに？

$a="すあまさんは$1の$2が好き";
my %machted_Reg_Hash = map +( $_, eval "$_"), $a=~ m|(¥$[1-9とか])|g;
で、、、
printf qq|"%s" =>"%s"|, $_, $machted_Reg_Hash{"$_"} for keys $machted_Reg_Hash{"$1"};
したら、、、
php=>RegExp
perl=>うんこー
長門=>--○◎●
になるみたいな？

♯あっと、、、evalの後には$@チェックを入れたいよなぁ・・・

◆TWARamEjuA · 2009/12/09(水) 07:15:37

>>758
×keys $machted_Reg_Hash{"$1"};
○keys %machted_Reg_Hash;
ですたm(_ _)m深謝

◆TWARamEjuA · 2009/12/09(水) 07:16:29

×machted
○matched

だよなぁ。。。

**Treat** ◆??? · 2009/12/09(水) 07:23:57

suama.pl
--
$str='すあまさんは$1の$2が好きではなかった';
$c='すあまさんは\$1の\$2が好き';
$str=~s/$c(.*)$/$1/;
print $str;
--
>perl ./suama.pl
ではなかった

◆SUAMA.Cbav5m · 2009/12/09(水) 08:16:39

evalで変数展開させて、…って書こうとしたら既に(´･ω･`)

**trick ★** · 2009/12/09(水) 10:28:32

わわっと、みなさんどもです。

evalでってのは思いついたんですが簡単な方法無いもんかと思いましてー
帰ったらまた弄ってみますー( ﾟ∀ﾟ)y─┛~~

頑張ってすあまさんを熟女好きに参照させますです。

△ ◆garnetGnNk **＠garnet ★** · 2009/12/09(水) 12:40:25

> cat s.pl
#!/usr/bin/perl

my $a = 'すあまさんは$1の$2が好き';

my @area = ('歌舞伎町','銀座','六本木','吉原','すすきの','実家','親戚','友達');
my @who = ('幼女','ママ','熟女','女王様','腐女子','変態','オカマ');
my @b =(undef, $area[int(rand(@area))], $who[int(rand(@who))]);

$a =~ s/\$(\d+)/$b[$1]/eg;

$\ = "\n";
print $a;
> ./s.pl
すあまさんは親戚の腐女子が好き
>

● ◆SUAMA.Cbav5m · 2009/12/09(水) 13:07:52

(´･ω･`) 親戚っていうか、妹が、なんですけどね

◆SUAMA.Cbav5m · 2009/12/09(水) 16:14:02

>>764がとてもあぶない意味に取られる気がする＞＜

# ｢>腐女子｣ってのが抜けるだけでやばすぐる

◆SUAMA.Cbav5m · 2009/12/09(水) 16:15:10

orz

>>766
×>>764
○>>765

**動け動けウゴウゴ２ちゃんねる** · 2009/12/10(木) 01:02:57

××すあまさんは親戚の腐女子が好き
×すあまさんは腐女子が好き
○すあまさんは腐女子な妹が好き

なるほど。。。

**trick ★** · 2009/12/10(木) 01:08:44

うーん上手くいかなーい、そんでねむーい

#!/usr/local/bin/perl

my $list_PATH = "ほげほげ";
my $list_txt_file = "$list_PATH/list.txt";

my @Inlist;
my $match_string_list;

my $host = $ENV{'REMOTE_HOST'};
my $addr = $ENV{'REMOTE_ADDR'};

if ($host eq "" || $host eq $addr) {
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2) || $addr;
}

open(IN, $list_txt_file);
@Inlist = <IN>;
close(IN);

@Inlist = grep(!/^(#|\n)/,@Inlist);

print << "END_OF";
Content-type:text/html\n\n
END_OF

print "あなたのホストは「　" . $host . "　」です。 \n";

for ($i = 0; $i < @Inlist; $i++) {
$Inlist[$i] =~s/\n//g;
($match_string_list,$display_match_string) = (split(/\t/,$Inlist[$i]))[0..1];

if ($host =~ m/$match_string_list/) {
print "リストの" . $match_string_list . "にマッチしました。 \n";
if ($display_match_string eq "") {
print "このホストの規制表\記は『　" . $match_string_list . "　』になります。 \n";
} else {

※さてここどうすっかな？

}
last;
}
}

exit;

>>765
あら？うちは嫁が腐ってますよ

**動け動けウゴウゴ２ちゃんねる** · 2009/12/10(木) 01:54:03

果物でもなんでも熟してる方が美味しいとおもふ

2009/12/10(木) 02:03:48

$host =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;

こうですか？分かりません＞＜

**Treat** ◆??? · 2009/12/10(木) 07:19:07

utf8にしとけよ・・

**trick ★** · 2009/12/10(木) 13:18:45

ふとおもた、evalのevalってできないかな？

2009/12/10(木) 15:46:32

>>771
これじゃおかしいなｗ
こうか

if (defined($o = $host =~ m/$match_string_list/)) {
略
}else{
$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;

>>773
文字列を評価した結果を再評価なら出来るとおもう

2009/12/10(木) 15:59:35

なんかぜんぜん違う…
if ($host =~ m/$match_string_list/)) {
my $o = $&;
略
}else{
$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;

こうだった

◆TWARamEjuA · 2009/12/10(木) 20:04:15

→gee
evalのevalかと♪with GPM

**trick ★** · 2009/12/10(木) 21:45:13

うむむ～みなさんどもです；

例えば$display_match_stringに表示用規制表記の「　hoge$1\d+$2.$3.hoge.ne.jp　」とかが入ってるとするじゃないですか、
$display_match_stringを評価して、さらにif ($host =~ m/$match_string_list/) {の特殊変数も評価したいばやいはどうすればいいんでしょ？

みなさんのを参考に色々と試しているんですがうまくいかず・・・おいら頭わるーい( ﾟ∀ﾟ)y─┛~~

◆TWARamEjuA · 2009/12/10(木) 21:51:11

何となく情報の小出し感♪

どんな引数があって、どんな戻り値を期待しているのかな？
具体的に書いてもえぇんちゃうかなぁ♪

**trick ★** · 2009/12/10(木) 22:04:30

まんま>>769ですよー
自分のホストの規制表記を表示させようとおもてー

http://imo.70.kg/test.cgi

2009/12/10(木) 22:54:19

>>777
にゃにゃにゃ

if ($host =~ m/$match_string_list/)) {
my $o = $&;
略
}else{
$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;
print "このホストの規制表\記は『　" . $o . "　』になります。 \n";

こう？
さて期待通りに動くかな
テストしてきますｗ

● ◆SUAMA.Cbav5m · 2009/12/10(木) 23:10:24

#!/usr/bin/perl
use strict;
use warnings;

my $host='softbank218136142014.bbtec.net';

my $regex='softbank\d{6}';

if($host=~m/($regex)/){
　print "$1\n";
}

exit;

**trick ★** · 2009/12/10(木) 23:24:58

ああそうか、何やってんだ俺＿|￣|○

2009/12/10(木) 23:25:53

>>780
$display_match_stringのバックスラッシュをエスケープする必要はあったけど、規制表記は期待通りに表示できた予感
こういう事でいいんですか？>>779

● ◆SUAMA.Cbav5m **＠SUAMA ★** · 2009/12/10(木) 23:27:10

とりあえず>>781を適当にCGIにしてみたので試してもらえるとうれしいな

ttp://imo.70.kg/test3.cgi

# 引っかかった部分を出すだけでいいと思ったんだ

**trick ★** · 2009/12/11(金) 01:19:57

いやーすっません、無事表示できましたー
げいいんは私がボケてただけですね。多謝

2009/12/11(金) 11:52:27

$display_match_stringの後方参照が展開されていないみたいだけど、これでいいの？
今はp0001-ipbf01marunouchi.tokyo.ocn.ne.jpみたいなホストが、
「ipbf01marunouchi.ocn.ne.jp」のように表示されているけど、期待された表記は「ipbf\d+marunouchi.tokyo.ocn.ne.jp」じゃ？

2009/12/11(金) 11:54:26

いや、後方参照は展開されているか
\d+と表示されなければならないところが、01みたいに表示されているってことですね

2009/12/11(金) 11:58:57

>>780でいうと、$o =~ s/$match_string_list/q{"} . $display_match_string . q{"}/gee;で置換えを実行せずに
そのままマッチした部分である$oを出力しているという感じです

**trick ★** · 2009/12/11(金) 12:25:21

とりあえずすあまさんが書いたものでいいですねー
後ろの@ほにゃららとか$HOST_IPとかも表示さないとですが、あと種類もあるのか

**trick ★** · 2009/12/11(金) 12:45:52

あれ？\dとかは参照いらないのか？

**trick ★** · 2009/12/11(金) 18:06:09

わはは、俺なに酔っ払ってるんだこれ？
ここ2、3日表示用を作ってたのになんで全部参照させておっけーなんだYO

>>786さんが正解です。すあまさんのだと正規表現全部マッチさせた結果になる訳で
>>786さんの例だと、$host =~ m/$match_string_list/でp0001-ipbf01marunouchi.tokyo.ocn.ne.jpに
リストのip(ad|bf|bfp|ngn|gvpnf)?\d+(\w+).(\w+).ocn.ne.jpをマッチさせた
特殊変数$1のbf、$2のmarunouch、$3のtokyoだけ表示用マッチ文字列に参照させたいんです。

酒こえー、自分がなにやってるのかまで分からなくなるとは…
今夜はちょっと控えよう、一杯だけにしよう

2009/12/11(金) 22:50:51

>>791
別の書き方をすると
$display_match_string =~ s/\\/\\\\/g;
if ($host =~ m/$match_string_list/)) {
my $p = eval q{"} . $display_match_string . q{"};
略
}else{
print "このホストの規制表\記は『　" . $p . "　』になります。 \n";　
ですかねー
バックスラッシュをダブルバックスラッシュにする必要はありますが

あれ？書き直したら前よりシンプルにｗ

**trick ★** · 2009/12/11(金) 22:56:13

今しがた、力技でなんとかしてみました・・・ｗ

http://imo.70.kg/test.cgi

こんなんでいいと思うんですが、みなさんのホストはどうでしょ？

2009/12/11(金) 23:03:52

>>793
こちらのホストでも正常に動いてるようです

**trick ★** · 2009/12/11(金) 23:13:43

>>794
よかたー、ちなみにこんな感じで無理やり痴漢してみました。

$c = scalar( () = $display_match_string =~ /\$[0-9]/g );

if ($host =~ m/$match_string_list/) {
my @mendoi = ($1,$2,$3,$4,$5,$6,$7,$8,$9);　←めんどいので9個位入れちまえー

略

for($j = 1; $j <= $c; $j++) {
$tmp = q{\$} . $j;
$display_match_string =~s/$tmp/$mendoi[$j - 1]/ge;
}
print "このホストの規制表\記は『　" . $display_match_string . "　』になります。\n";
}

やっぱり何度見ても頭悪い書き方ですななー、適当すぎですねぇｗ
酔っ払ったせいで皆さんにご迷惑をおかけしましたー、陳謝

◆TWARamEjuA · 2009/12/12(土) 00:04:45

リストの^(.*)$にマッチしました。

工ｴｴｪｪ(´д｀)ｪｪｴｴ工

◆TWARamEjuA · 2009/12/12(土) 00:06:53

>>795
→めんどいので9個位入れちまえー

if (my @mendoi = ($host =~ m/$match_string_list/)) {
で良さそうな（めんどいのでいくらでもこーい♪）

**trick ★** · 2009/12/12(土) 00:17:55

おおー、どもどもなるなる

ん？つか未承諾さんどんなホストからアクセスしてはるんすか・・・

baila6.jp ◆TWARamEjuA · 2009/12/12(土) 00:51:20

>>798
えへへ（照）

**動け動けウゴウゴ２ちゃんねる** · 2009/12/12(土) 01:00:18

レンサバ？

**動け動けウゴウゴ２ちゃんねる** · 2009/12/12(土) 01:04:08

自鯖じゃないですかねー?

**trick ★** · 2009/12/12(土) 01:05:54

やっぱりｗ

よーしパパリストに追加し（ｒｙ

2009/12/12(土) 11:21:01

http://www1.axfc.net/uploader/Sc/so/63180
適当に種別対応させてみましたｗ
参考にして頂けたら幸いです

2009/12/12(土) 11:21:32

ああ、書き忘れた＞＜
passはtestです

**trick ★** · 2009/12/12(土) 12:37:24

>>803-804
おおー、どもです。一気に痴漢できるー、早速変更してみますた♪( ﾟ∀ﾟ)y─┛~~

そんで仕事中にふと思い出したんですが、たしかlist2.txtもあったような記憶が・・・
まあ昼飯食おう

**Treat** ◆??? · 2009/12/13(日) 08:07:51

>>795 >>805
通報通報♪

**動け動けウゴウゴ２ちゃんねる** · 2009/12/13(日) 11:43:42

酔っぱらったせいで一気に痴漢で皆さんにご迷惑だなんてそんなtrickさんなんて

いいじゃないか

♪ ◆/y.Ychk2JQ · 2009/12/19(土) 21:46:11

＞http://pc12.2ch.net/test/read.cgi/software/1257595784/518
こんな感じです。

＊list2.txt仕様＊
---------------グループデータ構成--------------------------
グループマッチ文字列[TAB]デフォルト表示用マッチ文字列
[TAB]マッチ文字列[TAB]排他フラグ[TAB]似非セマフォ[TAB]表示用マッチ文字列
　　・
　　・
　　・
---------------グループデータ構成--------------------------
リストは「グループデータ構成」の集まりです。
空白行は無視されます。行頭 # 付きはコメントとして扱います。
最初の文字が[TAB]で始まらない、かつ # で始まらない次の[TAB]までの文字列を「グループマッチ文字列」とします。
最初の文字が[TAB]で始まり、マッチ文字列、排他フラグ、似非セマフォがそれぞれ空文字列でない場合、グループに属するitemとします。
itemはホストネームを保持するリストを持っています。

item.list = ホストネームを保持するリスト
item.count() = 保持しているホストネームの数

＊＊　処理内容　＊＊
事前処理：
「グループマッチ文字列」にマッチすると規制範囲最小化の対象となります。
次にどのitemにマッチするかチェックします。
マッチしたitemの item.list に該当ホストを追加し、すべての対象となるホストを追加していきます。

最小化実行：
すべての対象ホストの追加が終わったら、各グループ単位で最小化を実行していきます。

グループ内のあるひとつのitemを起点とします。
自身が item.count()==0 の場合は起点にはなりません。
Item.表示用マッチ文字列 eq "" の場合は起点にはなりません。

<条件1>
起点のitemであること。

<条件2>
自身(item)以外に item.count() !=0 の item(Target)が存在し、そのitem(Target)の排他フラグがFALSEであること。

<条件3>
自身(item)を含め、item.count() !=0 の条件を満たす item の個数が似非セマフォ以下であること。

<条件1,2,3>をクリアしたitemの持つ「表示用マッチ文字列」が規制範囲縮小用のマッチ文字列になります。
また、2個以上のitemが起点となり、かつ<条件1,2,3>をクリアした場合最後のitemの「表示用マッチ文字列」が使用されます。
（本来はリストの構成によって起きないですが）

<条件1,2,3>を満たす item が存在しない場合は規制範囲縮小はされず「デフォルト表示用マッチ文字列」が使用されます。
ただし、「デフォルト表示用マッチ文字列」がない場合は「グループマッチ文字列」が使用されます。

♪ ◆/y.Ychk2JQ · 2009/12/19(土) 22:03:25

×起点　→　○基点

幸せサーバープロジェクト 「アイデア・技術のある人募集中」★4

幸せサーバープロジェクト　「アイデア・技術のある人募集中」★4