2ch特化型サーバ・ロケーション構築作戦 Part53

**動く動くウゴウゴ２ちゃんねる** · NG

2ch特化型サーバ・ロケーション構築作戦のスレッドです。

・２ちゃんねるのサーバロケーション、PIEに関する関連作業・調整事項
・DNS登録・変更関連の各種作業や調整事項
・２ちゃんねるのサーバで採用しているOS、FreeBSDに関する情報・調整事項
・各種作戦・プロジェクトとの連携、プロジェクト間の連携

等を取り扱います。

前スレ:2ch特化型サーバ・ロケーション構築作戦 Part52
http://qb5.2ch.net/test/read.cgi/operate/1277651499/

**root▲▲ ★** · 2010/07/05(月) 13:53:00

うむ、そこをスキップしてもいまいちだな。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 13:54:02

一件ずつ読み込むんじゃなくてまとめて全件メモリに放り込んであるのか
昔なら大丈夫だったんだろうけど、最近の串発生率には追いつかなくなってきたのかな

**root▲▲ ★** · 2010/07/05(月) 13:55:31

あ、なんかわかった。
ためしてみる。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 13:56:43

>>501の奴、最後の「|」っているのか？
m または[^\w.:/-]　にマッチさせたいんじゃないの？

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 13:59:22

ｍ演算子

ｍ演算子は、正規表現を「/」で囲う場合は特に指定する必要はない。
ただ、日付等「/」を含む文字列を表現する際に「/」以外の文字で正規表現を囲う場合、ｍ演算子が必要となる。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:01:43

そうなのか
やっぱり軽く触っただけの素人が口出しすべきじゃないなｗ

**root▲▲ ★** · 2010/07/05(月) 14:05:07

おー、思いもよらないところが。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:06:56

俺もPerl知らないですけどね

**root▲▲ ★** · 2010/07/05(月) 14:18:58

>>509
どうすればいいのかしら。

**root▲▲ ★** · 2010/07/05(月) 14:20:35

で、問題はもう一つあったっぽくって、
たぶんデバッグなのかどうなのか知りませんが、
そもそもBBQの中身を＊出力しない＊状態になっていますた。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:22:00

>>501が今は関係ないのなら、いじらない方がいい予感

>>515を見る限りテスト用に走行させて直すの忘れていたという感じなんじゃないかと

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:22:14

>>515
ちょｗそれ意味ないｗ
とりあえず
ttp://www.rfs.jp/sb/perl/02/09.html
＞・m// 演算子

＞m// 演算子は、パターンマッチで文字列検索を行ないます。スカラコンテキストでは、マッチするごとに TRUE を返し、
＞最終的にマッチしなくなったときに FALSE を返します。対象の文字列を変更すると、検索位置は先頭にリセットされます。
＞=~ 演算子か !~ 演算子で検索対象の文字列を指定しなかったときは、$_ が検索対象となります。
＞区切文字が "/" のときには、最初の m を省略することができます。m を付けるときには、英数字でも空白でもない、
任意の文字のペアを区切文字として使うことができます。たとえば、パス名「/usr/local/bin /perl」など「/」を含む文字列の場合は､
mオプションで区切り文字を変更すると文がすっきりとします。

**root▲▲ ★** · 2010/07/05(月) 14:22:16

>>515
具体的には、ファイル作るループの前で、
close $IP_file_FH;

とやって、ファイルをクローズしているっぽい。
(で、後のほうでクローズしたものに print している)

**root▲▲ ★** · 2010/07/05(月) 14:23:51

>>517
ふむふむ。

$hosts =~ m|[^\w.:\/-]|;

は、具体的に何をしようとしているっぽいのかな。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:25:15

本人に聞きてぇ

**root▲▲ ★** · 2010/07/05(月) 14:26:45

ごめん、
>>519 は、

next if $hosts =~ /^#/ or $hosts =~ m|[^\w.:/-]|;

がもとの記述です。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:29:03

^[a-zA-Z_0-9].:/-

のどれか一つってことなのかな・・・？多分間違ってる
Perlの正規表現っていろいろややこしい・・・

書いた本人どこいったの？

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:30:23

> next if $hosts =~ /^#/ or $hosts =~ m|[^\w.:/-]|;
先頭が# or 先頭が小文字英数字か.か:か/か-だったら飛ばす。。。かな？
.:/-がなんか意味があったりするのかな？

**root▲▲ ★** · 2010/07/05(月) 14:30:33

そうか、 / を含むから、 m| | で囲んだんですね。

[^\w.:/-]
は、

行頭
\w
.
:
/
-

となるのか。

で、ここで全ての行が吸い込まれて(つまり、next扱いに)しまう。

**root▲▲ ★** · 2010/07/05(月) 14:31:09

あ、. って \. じゃね?

**動け動けウゴウゴ２ちゃんねる** · 2010/07/05(月) 14:32:11

>>525
ですね
じゃないと全ての何かしらの文字になっちゃいます

**root▲▲ ★** · 2010/07/05(月) 14:32:21

うむ、ちがうっぽいな。

**動け動けウゴウゴ２ちゃんねる** · 2010/07/06(火) 04:09:28

コピペじゃないの^^;;