♀２１だけどVIPPERの皆で協力して壮大なシステム作らない！？

私は♀２１で職業はプログラマーです。
ＶＩＰＰＥＲの皆で協力してＷＥＢ上に面白いもの作らない？
まずは貴方達の企画もとむ！

例：「相性占い」、「ランダム生成日記（名前を入力するやつ）」など

あとは任せた>>4

>>1糞ﾜﾛﾀｗｗｗｗｗｗｗｗｗｗｗｗ

>>2どうして？

　　 　　　　　　　　　　　　||
　　　　　　　　　　　　 　　||
　　　　　　　　　　　　　 　||　　ﾀﾞﾝｯ!!　　
　　　　　　　　　　　　　∧||∧ 　　　　
　　　　　　　　　　　　（∩ ⌒ヽﾉ　　　　
　　　　　　　　　　　　　＼　 _⊃　　　　　　　　　　　　
　　　　　　　　　　　　　　∪　　Σ
　　　　　　　　　　　　　　　　　≡|￣￣￣￣|

世界中のPCのHDがつながる総合エロサイト

>>5
それはすごいｗｗ

プログラマーが全角で英字打つのかｗｗｗ

1の生態を逐一報告するシステム

なんだ、作ってくれないのか

20後半〜30台の♂なら協力した

首吊りする子を助けるゲームでもつくんの？

本気で作ろうと思うんだけど、すみませんが
>>5さんが望むような高度なレベルのプログラミングは出来ません

21歳プログラマーか・・
まぁ、楽しい時期なんだろうな
と思った29歳SE

♀２１だけど　を入れる必要があったの貝

>>13
出来ることが毎回増えていくので楽しいです＾＾

>>14
ごめんなさい。なかったかも。。。。。。

>>1
首吊りシステムを作れ
安価とはこういうものだよ

あ、怪しい酉付いてたが無視でよろしく

で？言語は何できんの？
WEB系って事はPHPかJava？

Perlしか出来ません・・・・・

転職した方がいいよ

>>16
首吊りシステムって具体的にいうと、どんなかんじですか

しねばいいと思うよ

>>20どうしてですか？

>>22
まだシネマ船

それくらい自分で考える
俺に聞かないでっ♪

SEとかマジ氏ね

SA702iのGPSアプリ作ってくれ
自動車ナビ実装してほしい

>>1がメインで作ってくのか？

SEは氏ねとか言わなくても勝手にしんじゃうんだぜ・・・

Perlで大規模な新規開発をやる事は今はまずない
今更新人にPerlを教えたところで、やれるのは古いシステムのメンテか、Perlしか知らない上司の小間使い
会社はキミのことを使い捨てとしか考えていない
本当に育てていく気があるならもっと将来性があり、習得するトコで強みになる言語を教える

>>29
ﾜﾛﾀｗｗｗ

>>28
そのつもりです

>>30
マジレスありがとうございます。
将来性のある言語ってどういうのがあるんですか？
とりあえず今日適当に作ってみようと思うんですが
どういったシステム作りましょうか？

同じ誕生日の人が登録したら、その人のメアドを通知してくれる
同じ誕生日お見合いサイトとかいかがでしょうか？

安価を大事にしない奴なんか大嫌いだ！

>>27
すみませんｊａｖａはできません

プログラマー自体が土木作業員みたいなもんじゃん

>>１
じゃぁ童貞ＶＩＰＰＥＲでも女とセクロスできる平等なシステムを製作してくれ

>>32
だからさ、>>4で作ってくれよ

ネカマ発見器

つーか性別言う意味がわからん

お前には絶対できない、あまくみんじゃねえよボケか

メールもらってどうすんだよ

>>41
メル友になります

数万のパターンから自分の顔を作れるモンタージュ機能みたいなの作ってよ

>>32
ただのスパム温床になるだけだな。

安価無視して自分のやりたい企画かよ。

なら一人でやってくれよ。
宣伝に使わないでくれ('A`)
だいいち、今のＶＩＰでやるよりニュース速報でやった方が面白いぞ＾＾＾＾

>>32
AspectJ含めたJava、Ruby、PHPあたり
WinOSなら.net
少なくとも今の開発現場で最もよく取り入れられている技術が習得できる物が望ましい
(オブジェクト指向、アスペクト指向、WEBサービスなど)

とりあえず、キミの実力を見るためにスレッド型の掲示板でも作ってみてはどうだい？　

ttp://pc-kobako.net/
アホス

>>1
と俺が付き合うプログラム作って下さい

1の頭はお花畑

>>44
そうですね＾＾；だとしたら登録するのに
数学の計算式をして正解したら登録できるようにするのはどうでしょう？

ニュー即の方が民度高いしこうゆうスレは伸びる

Perlで壮大なシステム作ると大変な事になりそうだな

たしかにニュー速のほうが向いてるな

>>46さん
マジレスありがとうございます。
JAVA、PHPあたりは主流というのが分かるのですが
rubyってperlと似た感じで死に掛けた言語じゃないんですか？
昔はすごかったみたいですが・・・・・

>>46
>>1の実力を見ても意味がないと思うよ
実際、何を作るか決めてから、それを実現するには
どういった技術が必要か判断して、習得する努力を
してもらった方がいい

ニュー即にたててきますね

>>38面白いかもな
あらかじめ用意された会話にユーザが答える
その内容からシステムが判断して性別を判定する

Q「昨日何してた？」
A「(ユーザ入力)」
Q「へー、それって面白い？」
A「(ユーザ入力)」
Q「そっか、じゃあ今度私と一緒にやろう」
A「(ユーザ入力)」
↓
判定結果
みたいな

おっきした
http://37514.net/pc/weblog/home/eriblog/

>>1は>>4のｽﾅｲﾎﾟを無視

よ　っ　て　糞　ス　レ

wikiってなに？

>>38さん
>>57さん

それくらいなら出来そうです
ただ判定基準をどうしますか？
ネカマ言語をあらかじめ「なのよ」「そうよ」とかたくさん登録していて
15個以上あったらネカマ度１００％とか？

>>50
ぶっちゃけ、出会いを抽象化しただけのシステムなんぞは、既にmixiやらなんやらで飽和状態。
ただ単に出会いの機会を与えるだけの場の提供はもう、ニーズとして魅力が薄すぎる。
付加価値を持たせるか、もしくは出会いの概念自体をおまけに位置付けるかの方がマシだと思う。

.net COBOLで
サイボウズと同等のグループウェアを
開発してください。ライセンスフリーね
金取るなよ

>>54
キミの参加してるプロジェクトの規模がわからないけど
100人体制とかのプロジェクトだと、本筋のシステム以外に検証・評価専用のシステムだったり
そういうこまかなサブシステムが山のように出てくる
Rubyは短期間で硬いシステムを組むのに適してるから、こう言った用途ではよく使われる

>>61
作る前からネタをばらしてどうする

>>65
っていうか、既にCGIかなんかでそんなん無かったっけか？ｗ

ちょ、ニュース速報立てたのか？


やった＾＾＾＾＾＾

ヒント：http://category.bloog-ranking.com/200607062121.html

とりあえず以前作ったプログラムやってみますか？
相性占いです

>>66
このままｇｄｇｄするよりなんか作り出させた方がいいじゃん

>>70
そうか。それもそうだな、ｽﾏﾝｶｯﾀ。

2chのスレを複数追跡して、その結果、スレ主はネカマかどうかを調べるものを作って欲しい。

>>69
以前作ったものを出して楽しいのはキミだけだろ
相性占いなんてそれこそ腐るほどある

10個ほどの質問に答えたり、Yes/No形式で答えていくと2chのお勧めの板を提示するシステムなんてどうかな

>>62
そうなんですよね。どーせなら新しいニッチなものがいいですよね・・・

>>64
さすがSEさんですね。設計専門かな。
お遊び程度に携帯版のミクシみたいなもの作ったんですが
一応形にはなってますが、セキュリティや処理の負荷など全然考えず
PERLで組みました。もっといろんなことも試していきたいです＾＾

いつかこのスレのみんなで壮大なエロゲー作ろうよ

そのためには、
>>1には、まず、そのエロゲ用の吉里吉里を越える、
ノベルゲーム製作用のオーサリングツールを開発して欲しい。
吉里吉里は自由度が高いし、素晴らしいソフトなんだが、
いかんせん素人には使いにくいんだ。
だから、「吉里吉里よりも使いやすく、かつ吉里吉里よりも高機能」なのを頼む。
もし完成したら、冗談抜きで名が残るぜ。

最安価ｷｳﾞｫﾝﾇ

>>72、>>73
それは私のPERLの技術では無理っぽいです・・・ごめんなさい

>>74
専門ではないよ
チームリーダークラスではあるけど、設計しつつ自分でコーディングすることもある
>>75
つ【スレタイ】VIPを製作するサークルへエロゲ【めんどい】
http://ex16.2ch.net/test/read.cgi/news4vip/1154072904/

2chブラウザに生成されるログから、お勧めの板を自動提示するシステムが欲しい。

>>73
それ程度のものなら出来ますが問題は、その対象となるスレの登録とか
選択から登録スレに繋がるアルゴリズムをどう作るかが問題ですね

>>78
ちなみにどの言語を使うことが出来るんですか？

>>79
もっと詳しく！

>>77
>>73のシステムはとても簡単だと思うが
まず、2chの板にそれぞれ属性を与える
各質問ではその質問がYesだった場合、もしくはNoだった場合に、いくつかの属性値が付与される
最終的に一番値の高い属性の板を提示する、と言うような

例えば
Q「もえたん3を買いましたか？」
　Yesでオタク値3、アニメ値2、ロリ値2、学力1、政治経済ｰ2
とか

>>1のPerlはあくまでWEB上からのインターフェース部分を担当して、
内部システム（サーバソフトウェア）を.NETなりなんなりで作って、
Perlからそのソフトウェアにクエリを投げて、処理結果をPerlに返すって感じになると幅広がる？

>>82
選択の問題内容は常に固定ですか？
あ、板ですね・・・・スレと勘違いしてますた・・・・
すみません。それなら簡単！

>>81
Win系以外は一通り出来るよ
C,C++,Java,PHP,Ruby,Phyton,Perl他
ASP系がダメで、VB系はそれなりに出来る

>>83
ご提案ありがたいのですが、.NETが全然わかりません＾＾；

>>83
アプリケーションサーバを24時間稼動しつつ
メンテナンスをするという、人柱を立てなければ
ならなくなる悪寒

>>82
出来れば属性値の割り振り自体を流動的にしたいね、それなら。

>1
おだまりッッ！！！まずは脱いでからだッッ！！！

>>85
尊敬です！プログラミング歴どれくらいですか？
独学でも結構いけるもんですか？

お風呂に入りたくない９夜
http://life7.2ch.net/test/read.cgi/utu/1148392710/l50

メンヘラーが風呂にも入れないでいる不潔スレです
「不潔」と書いて教えてやりましょう

>>88
具体的に！？

SEに良くある言葉

「３０代で家が建ち
４０代で墓がたつ」

意味は自分で考えてくれ

>>84
今の場合、そういった細かい仕様はキミが決めていいんじゃないか？
こちらとしては、そんなのどっちでもいい
ただ、普通に考えれば、リピーターを考慮すれば質問は数あるものの中から付与される属性値が
ほぼ均等になるはずの質問をランダムに選んで行った方が、何度も楽しめていいと思うがね

SEって金にはなるけど、重労働すぎるってことですか？？？

>>93
20代では、営業のいい加減さに
腹が立ったりするな

もはやスレの内容が
「VIPPERの皆で」
ではなくなってきている件

>>94
ナイスなご提案ありがとうございます。
そうですね。質問内容をあらかじめ例えば３０用意していたとして
属性値に対してのパラメーターを似たようなバランスウェイトに全ての質問を
作っておいてってかんじですね。
ただ板って相当な数ありますよね。
何個あるんだろう。チェックしてきます

伸びるねこのスレ。
釣りくさいのに

>>90
俺はほぼ独学
大学出てからだから7年くらい？
最初はちっさな会社に入って、入社して1週間はSQLとVBの本が机にあるだけだった
そっから2回転職して、今は日本人の5人に1人くらいは触れたことのあるシステムとか作ってる
まぁそんなSE人生はどうでもいいからはよ作りなさい

>>1の何でも取り入れようとする姿勢は素晴らしいが、所詮は会社の歯車の1つ

>>92
2chって板毎にスレ一覧をRSS配信したりしてなかったっけ。
それをパースして保存しておいて、スレタイの単語を質問内に絡ませるとか。

そもそも、作りたいのはシステムなのか
ツールなのか、はっきりしてないよなｗｗｗｗｗｗ

>>98
全板じゃなくていいだろ
VIP、ニュー速＋、('A`)、メルヘンとか、いくつか代表的な板だけまずは着手すれば
できれば葉鍵板とか狼とか仕込んどいて欲しいが

>>99
釣りじゃないです。本気です

>>100
なるほどー。独学でも頑張ればいけるもんなんですね。
専門出てないとダメだと思っていました。

では、「選択問題に答えていったらオススメ板を案内してくれる」ウェブサービスでＦＡ？

やっぱりつまんないからじゃんけんして勝ったら女の子が脱いでくゲームにしよう

>>101
そうですね。でも歯車なりに頑張ってみます。

>>102
そのRSSから入ってくる関連単語の文字列の判定とかのプログラムがハンパなく
難しいと思われます＾＾；

>>103
ツールになりました＾＾；

>>104
そうですね。絞らないとキツそうです＞＿＜

>>106
写真がないです>_<

>>109
手元の携帯は飾りか？

>>97
というかニュー即から人が流れてきて
板全体が殺伐としてきた

厨を受け流してきたニュー即はすげぇわ
こんなのだらけで良くやる

間違えた>>108

>>111
私がモデルってことですか？
私かなりの喪女で婦女子です＾＾；
デブだし

VIPにうｐされるおっぱい画像をくまなく検出するシステムを作ってくれ。
ただし、グロ画像は絶対フィルタリングな。

>>112
かまわんよ
このスレはおっぱいを見るためじゃなく、楽しめる何かを作る事が目的なんだから
デブな喪女で婦女子な脱ぎゲーが楽しめるかは趣味によるが

>>113
そのシステム、googleが今必死に作ってるレベルのものですよｗ

>>114
すみません、私はちょっとキツいかな＾＾；

ワンクリックでいろんなクリック募金出来るやつは？
自分でいっといて、つまらん

（´・ω・｀)　やあ
君たちには一生セックスできない呪いをかけた。
しかし君たちは運がいい。

http://news19.2ch.net/test/read.cgi/newsplus/1154094088/l50

↑このスレに


｢このタイプのスレは常時age進行だった｣


と書き込めば呪いは解ける。
では、健闘を祈る。

>>116
そういうのって、すでに結構ありませんか？

サラ金ちっくなスコアリング
システムが良いな

マヂレスすると２１のアマに何ができるよ('∀`)グヘァ
まずは失敗から始めろや

まぁとりあえず、今後この業界で飯を食っていく気なら、提案型のコミュニケーションができるようにしときなさい
今のキミは、言われた物は作るけど、いわれてないものはどう作ればいいかわからないし、あとになって
疑問が出て質問して、今まで作ったシステムの仕様変更を迫られるような、そんなデスマーチの発端に
なりそうで不安
自分が起案者だったらどういうものにしたいと思うか、その為にはどういう仕様が必要かを考えて提案して
いけるような、ソリューション開発の手法ね

>>118
そうなの？ごめ、しらんかった。

なんか作った？

なんかコーエイ（？）のゲームの女のキャラで、文章入力すると解説してくれるサイトあったじゃん。やたらアニメネタに詳しいやつ。
ああいうのでユーザーが自分で単語を登録できるサイトみたいなのあったらよくない？

脱線したのはわざとだから、早くお勧め板誘導システム作りなさい

>>107
形態素解析器に全スレタイを掛けて、単語レベルに分解。全板のスレタイに対して処理。（重複は切り捨て
で、ある単語がスレタイに含まれる率の最も高い板はどこか？という事とか出来たりしないかな。

>>121
ありがとうございます。おっしゃるとおりだと思います。
今の段階では何も発想がなかったもので伺ってみました。

>>124
ｋｗｓｋ

>>126
PERLを使って２ｃｈのスレタイ全てに外部からアクセスかけることって可能ですか？

>>126
それはナイスなアイデアだと思いました

>>128
基本となるURI(ココでは2chTOPの板一覧画面)に含まれるURIにHTTPリクエストを投げ、
レスポンステキストを走査
テキスト内にURIが含まれていて、かつ2chのドメインだったら再度HTTPリクエストを投げて走査
を繰り返せば出来る

各板のsubject.txtぶっこぬいてくればいいだけじゃん

とりあえずすすまなそうだし寝る

>>130
なるほど出来そうな気がしてきました！
なんで今までなかったんだろう・・・

>>128
RSS配信を利用すれば、板から現時点のスレタイ一覧を切り出すのは比較的容易だと思う。
ユーザーがオススメの板を要求する度に、評価値を裏で変動させれば、
どの単語がより板に関連性が強いものなのか、とか洗練も出来そう？

>>127
ｋｗｓｋって言われても俺も思い出せないんだ。
誰か知らない？単語入力すると女が答えてくれるやつ。

>>134
なるほどー。良さそうですね！
toriaezu>>130さんがいうように各板のsubject引っ張ってくるのでいいですか？

チラッと覗いてみたけど、みんな何言ってるかさっぱり分かんない(´・ω・｀)

作ろうとしているものが、相手方に過剰な負荷となるものは好ましくないので
勿論、スレタイとかそこらへんの材料は12時間に1度の再取得で、キャッシュするとかでも十分だと思う。
あくまで最新のスレタイを調べるためのものじゃなくて、板の中で関連が強いと思われる単語を抽出する役割だから。

>>136
いいんじゃないかな？

まんまんみてちんちんおっきおっき
http://37514.net/pc/weblog/home/yuunonikki/

>>138
検索ワードを入力して検索かける度に　全ての板のsubjectと
パターンマッチングかけるのじゃダメでしょうか？

まずはおっぱいうｐ

P2Pネットワークな感じで
人類保管計画みたいなことはできないだろうか

とりあえず、今からつくってみますね！

30分まっててください

つか、なんかそんなページ既になかったっけ？

>>140
それでもいいかもっていうか、それなら、普通にスレタイ検索と大差無いような…？ｗ
自分が言ってるのは、タグ付けみたいなもので、じゃあ例えば、検索ワードに「火」を指定して検索した時、
果たして2ch全体の中では、「火」が含まれるスレタイはどこの板が一番多いのか？とかそういうのを取得する。
全板のsubjectを種にしたところで、ただ検索フォームをぽんと置いて、直接検索させるような仕組みにしちゃ、引っ掛るものが少なすぎると思う。
ユーザーは製作者の意図しない単語ばかりで検索を掛けて、ヒットすることが稀になるんではなかろか。

その情報をメインにするわけじゃなくて、あくまで付加情報として利用するつもりで。

>>146
要するに、キーワード検索して、そのキーワードがスレタイに一番含まれている板
のＵＲＬを案内ってことですよね？

>>147
うんうん。
そうなんだけど、フォームを用意してそれを検索させるような情報の使い方は真っ直ぐ過ぎるというかｗ
例えば、質問の中に、以下の単語でピンと来るものは有りますか的な表示でチェックボックス（複数回答可）で用意して、
そこに表示されるのは2ch全体でのTOP20とかの単語を並べる。

で、選択された物はそれが現時点、どの板と関連が一番強いものなのかが既に取れてるわけだから、
そのポイントを上げてやればいい。

PERLで外部ページの読み込みって出来ないんですか！？？！？

$targetpage ="http://ex16.2ch.net/news4vip/subback.html";
open(OPEN, $targetpage);
read(OPEN,$content,-s OPEN);
close(OPEN);
print $content;

してもhttp://ex16.2ch.net/news4vip/subback.htmlの中身が表示されない・・・・

なんだかんだ言いながら
何かできたらおもろそうだな。

がんば！！！

>>148
なるほどですね。>>147のアイデアを検索フォームの一部の機能として付随
するだけですね。

>>149の部分さえ解明できれば、面白いの作れそうです。
皆さんありがとう！

保守…はいらない？ｗ

>>158
ありがとう＾＾ｗ

ただ>>149の方法検索してるけど、なかなか見つかりません＾＾；

>>154
Perlは全然ﾜｶﾗﾅｽ。
けど、ttp://ash.jp/perl/socket_http.htm　とかここらへんじゃないん？

rubyだと早いよ

みんなありがとう。

外部ｈｔｍｌのソースの中身抽出さえ方法分かれば
あとは1人で出来そうです＾＾
でも、それが出来ないｗ
なかなか分からないもんですね。

>>155
同じとこ見てたｗ

>>156
Ruby面白そうだよなぁ…。と思い続けて早数年。未だに一度も触れたことの無い言語だ…ｗ

しかし、無意味にこのスレに居座ったことで、自分の製作意欲が高まってきた。

久し振りに俺も小物でも量産して勉強するかな。C#だけど…。

うわ、PERLからページ読み込ませようとしたらこんなん来たよ＾＾；

なんか注意警告きたよ＾＾；

(´･ω･`)やぁ。ようこそバーボンハウスへ。
このページはサービスだから、まず見て落ちついて欲しい。

うん、「また規制」なんだ。済まない。
FOX★の顔も三度って言うしね、謝って許してくれと言っても許すつもりはない。

でも、このページを見たとき、君は、きっと言葉では言い表せない
「反省」みたいなものを感じてくれたと思う。
殺伐とした２ちゃんねるの中で、そういう気持ちを忘れないで欲しい、そう思って
この規制を発動したんだ。

じゃあ、規制解除以外の注文を聞こうか。

やっぱし、外部のCGIから２ｃｈにアクセスできないのかな・・・

どうやら外部のCGIから２ｃｈのページのソースに直接アクセスできないぽい・・・
ということで終了ですね・・・

>>161
ttp://www.monazilla.org/document/oyster_subjecttxt.html
ttp://info.2ch.net/wiki/pukiwiki.php?subject.txt%A4%CE%BB%C5%CD%CD
ここらへんは読んだ？UAを正しく送らないと規制に引っ掛るぽ？

お付き合いいただいた皆様本当にありがとうございました。

>>165
神現る！！！出来るとこまで頑張ってみます！！
ありがとう！

>>166
あんた諦め良過ぎだな

>>168
21歳だと、こんなもんなんじゃないかなぁ。
俺20だけど。

色々しらべてると結構subject.txtの中身のデータを拾う需要あるのに
ライブラリが出てないのはなんでなんでしょうねー

串させばいいじゃない

皆さん知識ありそうなんで、初心者の俺が質問。

彼女んちのＰＣから、２ちゃんに書き込み出来ないんですけど、何が理由ですか？
書き込みしようとすると、『情報が変です』って表示されるんですが。

>>171
鯖はうちじゃないんです＾＾；

>>170
文字列処理のメソッドみたいなものはPerlには無いのかな？
正規表現とか標準で使えるんなら、さくっといけそうな希ガス。

>>172
プロキシー経由になっているか、ノートン入ってるかでしょうね

>>174
そういったサンプルのサブルーチンあってもいいはずなのに・・・

>>171
>>155
のなかに
># プロキシサーバの設定
>#$proxy_host = 'XXX.XXX.XXX.XXX';
>#$proxy_port = 8080;

つのがあったから、これ設定すれば串経由できんじゃないの？

ありえん！何様だ？！ゲド戦記の監督さんよぉぉ！！
http://category.bloog-ranking.com/200607281131.html#more

>>175
ありがとうございます！

書き込み出来るように直すのって手間かかります？

sub parse_dat {

my ($datcontent)=@_;

$ENC->set($datcontent,$CHRCODE);
$datcontent=$ENC->getu;

my @lines = split(/[\r\n]/, $datcontent);
my $alllines=$#lines;

for ($lp2=0; $lp2<=$alllines; $lp2++){

if ($lines[$lp2]=~/(.*)<>(.*)<>(.*)ID:(.*)<>(.*)<>/) {

$ALLRESNAMES[$lp2]=$1;
$ALLRESADDRESSES[$lp2]=$2;
$ALLRESDATES[$lp2]=$3;
$ALLRESIDS[$lp2]=$4;
$ALLRESBODYS[$lp2]=$5;

}

if ($lines[$lp2]=~/$THREADFINDSTR/){

$MATCH++;
print "\n".unijp(time_stamp()."[HIT!]\nTK-".$ALLTHREADKEYS[$lp]."-".$ALLTHREADTITLES[$lp]."/Res:".($lp2+1)."\n/Name:".$ALLRESNAMES[$lp2].
"/Mail:".$ALLRESADDRESSES[$lp2]."/Date:".$ALLRESDATES[$lp2]."/ID:".$ALLRESIDS[$lp2]."\n\n")->sjis;
}
}
}

今私は
use LWP::UserAgent;
use HTTP::Request;

my $url = 'http://yahoo.co.jp/index.html';

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request);
if ($response->is_success)
{
$contentsdata = $response->content;
}

にしてcontentsdataにsubject.txtの中身を代入しようとしています

>>180
なんか、Perl読めないから細かい事はわからないけど、正規表現パースですか。
GJ!ｗ

ん？いや、これはスレDATのパースか…？

>>180
非常にありがたいんですが使い方が分からないです>_<
ごめんなさい

>>184
ﾜﾗﾀ

use LWP::UserAgent;
use HTTP::Request;

my $url = 'http://ex16.2ch.net/news4vip/subback.html';

my $ua = new LWP::UserAgent;
my $request = new HTTP::Request('GET', $url);
my $response = $ua->request($request);
if ($response->is_success)
{
$contentsdata = $response->content;
}

２ｃｈのHTMLソース１つ引っこ抜くのがこんなに難しいって
知りませんでした。ごめんなさい。

sub get_dat {

my ($url)=@_;
my $ntsize;
my $ntlastmod;
my $lastmodflag;

my $req = HTTP::Request->new("GET", $url, $HEADER);

eval {
my $res = $UA->request($req);

if ($res->is_success) {
my $datheader=$res->headers->as_string;
if ($datheader=~/Content-Length:\s(\d+)/) {$ntsize=$1;}
if ($datheader=~/Last-Modified:\s(.+)/) {$ntlastmod=str2time($1);}

if ($ALLTHREADKEYS[$lp]>$ntlastmod) {
print time_stamp()."out of date (or special thread)\n";
$lastmodflag=1;
return ($ntlastmod,$ntsize,$lastmodflag);

} else {
my $content;
if ($datheader=~/Content-Encoding:\sgzip/){
$content=Compress::Zlib::memGunzip($res->content);
} else {
$content=$res->content;
#続く…

#続き…
}

save_dat($content,$ntlastmod) if $DATSAVEMODE;
parse_dat($content);

}

} elsif ($res->is_error) {
print time_stamp()."Get header error.\n";
return;
}
};

if ($@) {
print time_stamp()."Connection Failed.($@)\n";
return;
}

return ($ntlastmod,$ntsize,$lastmodflag)

}

### Save dat file and create .idx file ###

sub save_dat {
my ($content,$ntlastmod)=@_;

# Save .idx file
my $lastmodstr=time2str($ntlastmod);
$ENC->set($ALLTHREADTITLES[$lp]);
my $threadtitle=$ENC->conv("sjis");
my $datindex=$threadtitle."\n".$lastmodstr."\n".$ALLTHREADRESCOUNTS[$lp]."\n".$ALLTHREADRESCOUNTS[$lp].
"\n\n"."http://".$SERVER."/".$BBS."\n"."0\n0\n".$NANASHI."\n!\n0\n".
$ntlastmod."\n0\n";

open (IDX ,"> $CURRENTLOGDIR/$ALLTHREADKEYS[$lp].idx");
print IDX $datindex;
close (IDX);

#Save dat file

open (CNT ,"> $CURRENTLOGDIR/$ALLTHREADKEYS[$lp].dat");
print CNT $content;
close (CNT);

}

use LWP;
$ua = new LWP::UserAgent;

$ua->proxy(http => "http://bigbrother.tjhsst.edu:8002/");

$req = new HTTP::Request GET => "http://www.somesite.edu/somedir/somepage.html";
$stuff = $ua->request($req);

これは？まあ、俺perlわからんけど

>>188、189

ありがとうございました＾＾
使わせていただきます。

>>188、189

ありがとうございました＾＾
使わせていただきます。ただ、さきほどのように
２ｃｈ側に弾かれるんですが、弾かれないためにＵＡ設定とか
どこですればいいでしょうか？

>>181
ttp://homepage3.nifty.com/hippo2000/perltips/LWP.html#An_Example
こんなんあげてみる。

my $ua = new LWP::UserAgent;の直後に$ua->agent("AgentName/0.1 " . $ua->agent);ってのがあるね。
ここでUAを設定してるんだろうから、"AgentName/0.1"ってのを"Monazilla/1.00"って書けばいいんでね？
UAが規制の原因かどうかは知らないけども。

>>179
ノートン使ってんならここみてみ
http://info.2ch.net/wiki/pukiwiki.php?%A5%CE%A1%BC%A5%C8%A5%F3%C6%FE%A4%EC%A4%BF%A4%E9%A3%B2ch%A4%CB%BD%F1%A4%AD%A4%B3%A4%E1%A4%CA%A4%A4%BF%CD%A4%D8#content_1_2

>>194
２ｃｈ側からこんなん返ってきました

HTTP::Response=HASH(0x8344014)

UAモナジラにしなくてもGET出来るよ
バーボンは別の原因だと思われ…IP変えれば治る悪寒ｗ

my $SERVER="ex16.2ch.net";
my $BBS="news4vip";
my $USER_AGENT="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)";
my $GET_TIMEOUT=30;

#Create User Agent Object
my $UA = LWP::UserAgent->new();
$UA->agent($USER_AGENT);
$UA->timeout($GET_TIMEOUT);
my $HEADER = HTTP::Headers->new('Referer'=> "http://$SERVER/$BBS",
'Accept-Encoding'=> "gzip");

use LWP;
$ua = new LWP::UserAgent;
$ua->agent("Monazilla/1.00" . $ua->agent);
$req = new HTTP::Request GET => "http://ex16.2ch.net/news4vip/subback.html";
$contentsdata = $ua->request($req);

これだと$contentsdataにsubback.htmlのhtmlソースはいらないのかな

これだとエラーになります


my $SERVER="ex16.2ch.net";
my $BBS="news4vip";
my $USER_AGENT="Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)";
my $GET_TIMEOUT=30;

#Create User Agent Object
my $UA = LWP::UserAgent->new();
$UA->agent($USER_AGENT);
$UA->timeout($GET_TIMEOUT);
my $HEADER = HTTP::Headers->new('Referer'=> "http://$SERVER/$BBS",'Accept-Encoding'=> "gzip");

>>197
ソースが綺麗っぽい…Perl神ｋｔｋｒ？ｗ
IP変えればってことは、samba24規制の方なのかな。
憶測ばっかりでモノを言うのもよくないな俺ｗ

ブラックホール核爆弾
通称バスターマシン3号

>>191の
$ua->proxy(http => "http://bigbrother.tjhsst.edu:8002/");

↑でproxyさせば行くんじゃないの？もしかして全然違うなら去るが

>>202
できないですね

あ、ほんとだバーボンでるねｗ

#!/usr/bin/perl-w

use utf8;
require 5.8.0;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
$ua->agent("Monazilla/1.00" . $ua->agent);

my $req = new HTTP::Request GET => "http://ex16.2ch.net/news4vip/subback.html";
my $status = $ua->request($req);
my $contentsdata=$status->content;

print $contentsdata;

exit 0;

２ｃｈひとつのHTML取り出せないなんて
私プログラマーどころか、ただのおばかチャンなんでしょうね・・・・

このスレわけわかめby夏厨

>>205
ﾜﾛﾀw
何気にキャラ良いなそれｗ

>>1釣り乙

だれかヘルプおねがいしまつ・・・・・・・

でけたｗ

#!/usr/bin/perl-w

use utf8;
require 5.8.0;
use LWP::UserAgent;

my $ua = new LWP::UserAgent;
$ua->agent("Monazilla/1.00");

my $url="http://ex16.2ch.net/news4vip/subback.html";
my $HEADER = HTTP::Headers->new('Referer'=> "http://ex16.2ch.net/news4vip");

my $req = HTTP::Request->new("GET", $url, $HEADER);

my $status = $ua->request($req);
my $contentsdata=$status->content;

print $contentsdata;

exit 0;

>>207
そうかな＾＾；

>>208
釣りじゃなく、実際に今やって検証してるんよ

>>210
ほんとだｗｗｗｗ
出来た！！！神様！！！ありがとう！
あとは私の手で頑張ってみるね＾＾
なんか、ここ数時間一緒に頑張ってて貴方にすごい好感もっちゃったｗ
社内恋愛で、出来る同僚の男の子に惚れたみたいなｗ

perlは同じ動作でもオルタネートな書き方がいっぱいあって焦るわｗｗｗ

原因はこれですねｗ

×$ua->agent("Monazilla/1.00" . $ua->agent);
○$ua->agent("Monazilla/1.00")

>>212
>社内恋愛で、出来る同僚の男の子に惚れたみたいなｗ
壮大な壷

VIPPERはごみかす
http://live14.2ch.net/test/read.cgi/liveplus/1154121144/l50


はいはいこんなクソスレ落として全員突撃命令。VIPPER＝うじむし、だとよ。

>>214
ありがとう
とりあえず作業するね。
30分くらいしたら帰ってきます。
スレ落ちてるかもね＾＾；

今北　がんがれ壱

288 ：ひろゆき＠一応管理人 ◆Ku8HisorYL ：2006/07/23(日) 19:37:22 ID uI7/dOdW
夏休みということで掲示板に夏休み機能をつけてみました。
名前欄に【Summer/&rfu&rs&ria&rn&ras&ran&r/Vacation】と書き込めば
【花火大会】とか【盆踊り】【プール】などと出ます。暇な時の参考になればと。。。
数値は書いた日付とか時分秒とかレス番号で反映され50種類くらいまでありますよ。

すみませんPERL分かる方みてますか？
もうひとつだけ書式に関して質問よいでしょうか？？

$contentsdataに複数行にわたってHTMLソースが入っていますが
これを１行ごとにデータを取り出す時ってどうすればいいですか？

その後に
($frontdata,$threadnumber,$back) = split( /"/,$1行づつのデータ);
として
$backにキーワードが入っていた場合
ヒット数＋＋；としようと思っております。

｜ω・)大盛況だね

>>220のことは気にしないでください。勘違いしてました＾＾；

open(FH, $contentsdata);
while($linedata=<FH>)
{
($frontdata,$seachmonsname,$backdata) = split( /"/,$linedata);

if(($in{'keyword'}) ne "")
{
if($backdata=~ /^(?:$ascii|$twoBytes|$threeBytes)*?(?:$KEYWORD)/ )
$HIT++;
}
}




print $HIT;

なんで、これじゃダメなんでしょうか？？

ちなみにHTMLソースの中身は

<html lang="ja"><head><title>ニュース速報(VIP)＠2ch掲示板＠スレッド一覧</title>・・・・
<a href="1154121135/l50">1: VIPを見てリアルで笑ってる奴っているの？ (1)</a>　
<a href="1154112055/l50">2: 元ヒキ、メンヘラ16の俺がこんな時間に全レス (84)</a>　
<a href="1154120897/l50">3: 働いてる奴って頭おかしいんじゃね (8)</a>　
<a href="1153913435/l50">4: [クラブミュージック] CLUB VIP 236th floor [垂れ流し/DJ Mix] (979)</a>　
・
・
・

open(FH, $contentsdata);
while($linedata=<FH>)
{
($frontdata,$threadurl,$backdata) = split( /"/,$linedata);
if(($in{'keyword'}) ne "")
{
if($backdata=~ /^(?:$ascii|$twoBytes|$threeBytes)*?(?:$KEYWORD)/ )
$HIT++;
$title = $backdataから「>2:」や「</a>」を削除した文字列　
$searchindex .="・<a href=#".$vipurl.$threadurl.">".$title."<a><br>";
}
}
print $searchindex
print $HIT."件";

なんで、これじゃダメなんでしょうか？？

ちなみにHTMLソースの中身は

<html lang="ja"><head><title>ニュース速報(VIP)＠2ch掲示板＠スレッド一覧</title>・・・・
<a href="1154121135/l50">1: VIPを見てリアルで笑ってる奴っているの？ (1)</a>　
<a href="1154112055/l50">2: 元ヒキ、メンヘラ16の俺がこんな時間に全レス (84)</a>　
<a href="1154120897/l50">3: 働いてる奴って頭おかしいんじゃね (8)</a>　
<a href="1153913435/l50">4: [クラブミュージック] CLUB VIP 236th floor [垂れ流し/DJ Mix] (979)</a>　
・
・

いいかんじで出来てきた

例がしょぼすぎるな、プログラム噛んだ程度で出来るじゃねーか

うわ、まだあった

>>1
がんばってるなぁwww

perlわかる人ヘルプー♪

ココで人気投票をやると　エロ画像　が　手に入るぞ！

http://www.h3.dion.ne.jp/~jtm-js/ogura.htm

人気投票のコーナーにいって好きなのを選ぶと「お礼画像」が・・・・・

一見真面目そうなページなのにねｗｗｗ

<a href="1154123760/l50">3: 徹夜してます (70)</a>　
<a href="1154007955/l50">4: ただRO (538)</a>　

$collon='"';
これを($frontdata,$threadurl,$backdata) = split( /$collon/,$linedata);
して「　">4: ただRO (538)</a>　」を→　「　4: ただRO (538)　」にするには？？

ガンバレよwwww

キモイ掲示板
http://8809.teacup.com/prettyangels/bbs?BD=12&CH=5

今がんばってるよｗ

>>210に追加

my $keyword="おっぱい";
my $hit;

my @threadkey;
my @threadno;
my @threadtitle;
my @resno;

my @lines=split(/[\r\n]/,$contentsdata);

for ($lp=0; $lp<=$#lines+1; $lp++){

$lines[$lp]=~/<a href=\"(\d+)\/l50\">(\d+)\:\s(.+)\s\((\d+)\)<\/a>/;
$threadkey[$lp]=$1;
$threadno[$lp]=$2;
$threadtitle[$lp]=$3;
$resno[$lp]=$4;

if ($threadtitle[$lp]=~/$keyword/) {
print "key: ".$threadkey[$lp]." / no.: ".$threadno[$lp]." / title: ".$threadtitle[$lp]." / res: ".$resno[$lp]."\n";
$hit++;
}
}
print $hit."counts";

exit 0;

ほしゅ。

ほしゅ。

ちなみに何を作っているんだよ

女でプログラマーとは関心だな

>>234
ありがとう！がんばる

>>ほしゅしてくれてる人
ありがとー！

>>237

まんまんみてちんちんおっきおっき
http://37514.net/pc/weblog/home/yuunonikki/

ほしゅ。

今から出かけて、見れなくなるから、
最終結果かなんかをどこかにあげて欲しいものよ。

とりあえず皆の協力のおかげで出来たよ！
誰かいますか？

まだVIP板のみでの結果だけどね

ちょｗｗｗまじｗｗｗｗ女同士で？！
http://category.bloog-ranking.com/200607261857.html

>>242
出来上がったら実用するね

とりあえず！

http://uranai.no.land.to/search.cgi

「ポ」で検索したら
該当しないはずのものまで該当してしまう＾＾；

>>230
これは解決してるのかな？
HTML::Parserを使えばできるよ。

Googleのキャッシュだけど。
http://72.14.203.104/search?q=cache:-ZJRgg9G0EUJ:www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/htmlpaser.html+perl+HTML+parser&hl=ja&ct=clnk&cd=5&lr=lang_ja

ここにあるDump.pmを参考にしてLinkText.pmとか作って、
sub textの中身を適当に書き直したらおｋ

>>247
できたらソースもDLできるようにしてー。

>>247
おお！すげーｗｗｗｗ

ソース公開期待age

ほ

おおっ。
一応、形にはなったみたいだなｗ

+ [ \ | * ^ .
確認した限り、これらの記号一文字だけで検索するとアレかも。
スレ検索みたいな事させるんであればだけどもｗ

ありがとう
今、　http://uranai.no.land.to/threadlisting.txtにある　データを
それぞれ
ニュース速報(VIP),http://ex16.2ch.net/news4vip,http://ex16.2ch.net/news4vip/subback.html
ニュース速報(VIP),http://ex16.2ch.net/news4vip,http://ex16.2ch.net/news4vip/subback.html
みたいに並ぶようなプログラム作ってるんだけど上手くいきません＾＾；

>>254
ありがちだなｗｗｗｗｗ

ちなみにこんなかんじで組んでいます

open(OPEN,"<threadlisting.txt");
read(OPEN,$contentsdata,-s OPEN);
close(OPEN);

my @threadkey;
my @threadtitle;

my @lines=split(/[\r\n]/,$contentsdata);

for ($lp=0; $lp<=$#lines+1; $lp++)
{
$lines[$lp]=~/<A HREF=(\d+)\/>(\d+)\<\/A>/;
$threadkey[$lp]=$1;
$threadtitle[$lp]=$2;

if($threadkey[$lp] ne "")
{
$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadtitle[$lp]."/subback.html\n";
}
}

>>255
＜ｂｒ＞とるだけじゃだめ？

ニュース速報(VIP),http://ex16.2ch.net/news4vip,http://ex16.2ch.net/news4vip/subback.html


↑上のように「板名」、「板のルートアドレス」、「板のスレッド一覧ページのアドレス」

>>257
=から>までと、>から<までを切り出して並べればいいんでない？
/subback.htmlの方は、URL部分を切り出したものを格納した変数名+subback.htmlで。

>>260

それをしたいのだけれども、>>257のやり方でどこが間違っていますでしょうか？

>>260
あ。<br>は無視しないと</a><br>も引っ掛っちまうか？ｗ

>>262
<br>消しても無理でした＾＾；

実行けっかうｐ

実行結果としては

kekka.txt　に書き出した形にしたんですが
kekka.txtは生成されるものの中身は空でした

正規表現あんま得意じゃないんだよ


(\d+)\<

この）の後ろの\は何？

￥の半角ですよー

>>266
<が制御文字だからエスケープ？

ってか、Perlも面白そうだなぁとか思い始めてる自分ガイル。

>>265
どの行まで実行されてるか、echoでチェック

こんなかんじです

open(OPEN,"<threadlisting.txt");
read(OPEN,$contentsdata,-s OPEN);
close(OPEN);

my @threadkey;
my @threadtitle;

my @lines=split(/[\r\n]/,$contentsdata);

for ($lp=0; $lp<=$#lines+1; $lp++)
{
$lines[$lp]=~/<A HREF=(\d+)\/>(\d+)\<\/A>/;
$threadkey[$lp]=$1;
$threadtitle[$lp]=$2;

if($threadkey[$lp] ne "")
{
$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadtitle[$lp]."/subback.html\n";
}
}


open( FH2279, ">kekka.txt" );
flock( FH2279, LOCK_EX );
print FH2279 $showindex;
close FH2279;

>>267
それはわかるよｗｗｗ

>>268
\<　ってどんな意味だっけ？

>>269
echoの使い方がよく分かりません＾＾；
今使ったけど、何も表示されないで普通に流れて反応変わりませんｗ
echo print "Hello World!!\n";　をいれたんですが。。。

2ch検索を作るスレ？
なんで壮大なシステムが2ch検索になったの？

>>271
物凄い憶測でしかないけど、
<を文字として認識っていうか、単に<だけがいきなり来ると、正規表現的か、Perl的な構文として認識されるから、
それを回避する為に\の直後の文字はそういった構文としては見なさない。とか？

>>271

>>234さんのソースをサンプルにしていじってみました

>>273
なんとなくの流れですｗ

>>274
確かに<とか怪しげですね。
何か対処法あればいいのですが

http://www.youtube.com/watch?v=fNAnqLEmDcA

>>271

>>234さんの書き方
$lines[$lp]=~/<a href=\"(\d+)\/l50\">(\d+)\:\s(.+)\s\((\d+)\)<\/a>/;
だと正常に動いてます

むむむ…。
オリジナルは、
$lines[$lp]=~/<a href=\"(\d+)\/l50\">(\d+)\:\s(.+)\s\((\d+)\)<\/a>/;
で、弄られたのは、
$lines[$lp]=~/<A HREF=(\d+)\/>(\d+)\<\/A>/;

うーん…なんか根本的に正規表現の書き方を間違えてるような気がするのは気のせいだろうか。

ttp://www.rfs.jp/sb/perl/02/09.html
じーっ…。

>>279さん
ありがとうございます
>>234さんが来てくだされば・・・・

>>281
\d　数字の1文字にマッチ
\　直後の文字をエスケープする
うん。なんか凄いことになってる気がする。

>>282
どうして>>234さんは\のみを多用されてたんでしょうね

$lines[$lp]=~/<A HREF=(\d+)\/>(\d+)\<\/A>/;
現状のこれを日本語にすると、
<A HREF=数字一文字以上/>数字一文字以上</A>ってことになるのか…？

今北産業
釣りスレかとおもったが違うようだな

>>284
最初の数字一文字以上　は正しいですが　２つめのは日本語になりますね
それだｗｗｗｗｗ
ためしてきます！

やっぱり出来ない＾＾；
こういうふうに変えました
$lines[$lp]=~/<A HREF=(\d+)\/>\s(.+)\s\<\/A>/;

ちなみにデータ抽出するときは

<A HREF=http://news19.2ch.net/manifesto/>政治家語録</A><br>
こんなかんじで1行ごとにあるかんじです

>>285
性器表現の
書き方が
解らない

>>287
\s　空白文字にマッチ　だから、
\S　空白文字以外にマッチ　にしてみるとか？　うーん…？

.　ワイルドカード。改行文字を除く任意の1文字にマッチ　ってのもあるなぁ…？

>>288
何作りたいかはわからんが
やりたいことはわかった

$lines[$lp]=~/<A HREF=([\x21-\x7e]+)\/>([\x20-\xfc]+)\<\/A>/; 

>>290
ナイス！GJ！そうか文字コード範囲!?

2chのURLリスト抽出したいんだよな？

>>290
ありがとうでも、それでも出来ない
やっぱり空で出力されてくる
なんでだろ・・・

>>291
個人的には文字コード範囲指定が一番楽だとおもう
ワード指定とかいちいち覚えてられん

空で出力されます＾＾；　

open(OPEN,"<threadlisting.txt");
read(OPEN,$contentsdata,-s OPEN);
close(OPEN);

my @threadkey;
my @threadtitle;

my @lines=split(/[\r\n]/,$contentsdata);

for ($lp=0; $lp<=$#lines+1; $lp++)
{
echo print "Hello World!!\n";
$lines[$lp]=~/<A HREF=(\d+)\/>\s(.+)\s\<\/A>/;
$threadkey[$lp]=$1;
$threadtitle[$lp]=$2;


$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadtitle[$lp]."/subback.html\n";

}


open( FH2279, ">list.txt" );
flock( FH2279, LOCK_EX );
print FH2279 $showindex;
close FH2279;

>>293
もしShiftJISでないのなら

$lines[$lp]=~/<A HREF=([\x21-\x7e]+)\/>([\x20-\xff]+)\<\/A>/; 

で

【QB】vipでアメフト【女性も募集中】←この「女性」という言葉に注目!!
http://ex16.2ch.net/test/read.cgi/news4vip/1154082052/
このスレで強姦計画を企んでいます
皆さんでつぶしてください

あと、この正義のコピペを皆様は広める義務がありますので
最低5回コピペしてね

さらに、こんなことまで・・・
76 たぶんコーチ ◆zNRByDY4yU New! 2006/07/29(土) 00:06:23.51 ID:SDeeFlPV0
>>63
警察沙汰はゴメンだからやらない
どうせ被害者は１００％通報しないとは言えないからやらない
↑＞ どうせ被害者は１００％通報しないとは言えないから
この発言で強姦願望をｹﾞﾛしています!!

179 名前：以下、名無しにかわりましてVIPがお送りします[] 投稿日：2006/07/29(土) 01:47:07.72 ID:ZLxvpMvK0
ちょっとぉ、女確保してくれるなら俺も行きてぇよぉ
一応ハタチ以上限定なwここ低年齢層多いから気をつけないとwww
↑＞すでにこんな発言する人まででています
堂々とこんなことをするのを許していいのでしょうか

みなさんに、良心があるなら、このスレを煮るなり焼くなりして
つぶしてください！！平和の為に！！
公式サイト
http://vipfootball.sakura.ne.jp/main.html
まとめWiki
http://www15.atwiki.jp/syum/

春よ

#! /usr/bin/perl

open(OPEN,"<threadlisting.txt"); 
read(OPEN,$contentsdata,-s OPEN); 
close(OPEN); 

my @threadkey; 
my @threadtitle; 

my @lines=split(/[\r\n]/,$contentsdata); 

for ($lp=0; $lp<=$#lines+1; $lp++) 
{ 
$lines[$lp]=~/<A HREF=([\x21-\x7e]+)\/>([\x20-\xff]+)\<\/A>/; 
$threadkey[$lp]=$1; 
$threadtitle[$lp]=$2; 

if($threadkey[$lp] ne "") 
{ 
$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadkey[$lp]."/subback.html\n"; 
} 
} 

open( FH2279, ">kekka.txt" ); 
print FH2279 $showindex; 
close FH2279; 

こっちでした

open(OPEN,"<threadlisting.txt");
read(OPEN,$contentsdata,-s OPEN);
close(OPEN);

my @threadkey;
my @threadtitle;

my @lines=split(/[\r\n]/,$contentsdata);

for ($lp=0; $lp<=$#lines+1; $lp++)
{
echo print "Hello World!!\n";
$lines[$lp]=~/<A HREF=([\x21-\x7e]+)\/>([\x20-\xfc]+)\<\/A>/;
$threadkey[$lp]=$1;
$threadtitle[$lp]=$2;


$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadtitle[$lp]."/subback.html\n";

}


open( FH2279, ">list.txt" );
flock( FH2279, LOCK_EX );
print FH2279 $showindex;
close FH2279;

>>299
とりあえずecho文のとこを消しておいたら？もしかしたらそのecho追加した部分でこけてたりしない？

>>298さんのそのまま使ってもダメでした＾＾；

すいません>>１さん煽るつもりはまったくないんですが
これのどこが壮大なシステムなんでしょうか？

>>302
小さな事からコツコツと…コツコツ過ぎるけどコツコツと…。

なんでこれでダメなんでしょうね


open(OPEN,"<threadlisting.txt");
read(OPEN,$contentsdata,-s OPEN);
close(OPEN);

my @threadkey;
my @threadtitle;

my @lines=split(/[\r\n]/,$contentsdata);

for ($lp=0; $lp<=$#lines+1; $lp++)
{
$lines[$lp]=~/<A HREF=([\x21-\x7e]+)\/>([\x20-\xff]+)\<\/A>/;
$threadkey[$lp]=$1;
$threadtitle[$lp]=$2;

$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadkey[$lp]."/subback.html\n";
}
open( FH2279, ">kekka.txt" );
print FH2279 $showindex;
close FH2279;

>>301
途中の状態を表示するとか考えれ
例えば

open(OPEN,"<threadlisting.txt") or die "can't open"; 
read(OPEN,$contentsdata,-s OPEN); 
close(OPEN); 

my @threadkey; 
my @threadtitle; 

my @lines=split(/[\r\n]/,$contentsdata); 

for ($lp=0; $lp<=$#lines+1; $lp++) 
{ 
print "line $lp: '$lines[$lp]'\n";
$lines[$lp]=~/<A HREF=([\x21-\x7e]+)\/>([\x20-\xff]+)\<\/A>/; 
$threadkey[$lp]=$1; 
$threadtitle[$lp]=$2; 

if($threadkey[$lp] ne "") 
{ 
$showindex .= $threadtitle[$lp].",".$threadtitle[$lp].",".$threadkey[$lp]."/subback.html\n"; 
} 
} 

open( FH2279, ">kekka.txt" ) or die "can't create"; 
print FH2279 $showindex; 
close FH2279; 

>>302
すいません。今の私にはこれが限界です＾＾；

サーバーはどうすんの？

>>305
それで試してもkekka.txtが生成されなくて、エラーメッセージも出ないんです＾＾；

これはエロイｗｗｗｗｗ
http://37514.net/pc/weblog/home/ami/

>>308
古典だがprintfデバッグでも
１行ごとに

print "step 1";
print "step 2";

とか入れて
どの行まで実行されてるか調べてみるとか

perl ってデバッガないのかな？

>>308
書き込み属性あるか？

perl -d で起動すればよいのかｗｗｗ

>>311
その行まで行ってれば or die で死ぬとおもうんだが

おい技術屋ども！完成したらどういうことができるようになるのか
社長の私にレポート書いて提出しろ

>>311
書き込み属性？パーミッションですか？

社長の私の許可もなく開発を始めるんじゃないよ下っ端！

>>314
2ch中のエロ画像をまとめてﾀﾞｳｿできる

できました
ありがとー！！！

だいたい、２ｃｈはひろゆきのだろ。勝手にそんなことしていいのか？

>>318
できたときは原因説明しる

3L5RQMgm0はNGワードに追加されますた

>>320
理由は・・・キャッシュを編集して上書きしたつもりでいたら
アップロードしてたのは編集されてないデータのほうでした。。。
ごめんなさい。。。。
生成されない時点でおかしいですよね。。。。

http://eload.run.buttobi.net/cgi-bin/img/e_881.jpg

>>322
毎回アップロードして、CGIとして実行してるの？

WinならローカルにActivePerlとか入れて
そこで実験したほうが良いよ

>>324
一応CYGWINいれてて
an httpdもいれてますが毎回アップロードしてますね＾＾；

あとはこのそれぞれ板で検索させて、キーワードが多い板のキーワードに
該当するスレッドを参照するような機能がいいでしょうか？

技術屋VIPPERがいかがわしいことをしてると運営にカキコしときますた

スレの目的を把握してないが
スレへのリンク表示するならいいんじゃね

しばらくは>>1のコーディングを待つか

ソース公開予定はなし？

とりあえず、現段階では
VIP板でのキーワード検索→該当スレッド表示
までは出来ています。
そして、今「各スレッドのＵＲＬリスト」も生成したので
そこから各板のＵＲＬ拾って全てにサーチというかんじにしようと思うのですが
やはり当初の予定である、スレッド名にキーワードが一番含まれている板名を
表示しますか？

そして、その該当板のキーワード該当スレッドを表示が良いでしょうか？

>>329
今のところはございません_(。。)_

>>329
全ソース>>298

他にもちゃんと作ってたのかｗｗｗ

>>333
http://uranai.no.land.to/search.cgi　ｗｗｗ

今日中には終わりそうですね。
誰も使ってくれる人いなさそうだけどｗｗｗｗ

夏になると、ゴキブリがはい回り、うじがわき、VIPPERがほてってしょうもないことはじめる

とりあえず、コーディングしてきますね。
ちょくちょく来ますね。
また何かあったら書込みます。

脳味噌がしらこになりそうなので、そろそろ寝ますね。
起きた時も残ってればいいなぁ。
自分、Perlまともに読んだの今日が初めてなんだけど、
このスレのお陰で、なんか段々と読めるようになってきている気がするｗｗｗ正規表現とかもｗ

というわけで、保守よろで。

今北産業

今、全板対象で検索かけてるけど
ハンパなく時間かかります・・・これ＾＾；
やばそう・・・・

>>338
ありがとうございました＾＾
また、よろしくおねがいします！

AytUuY/y0君、キミ、技術屋の分際で社長の許可も取らずにこんなことやっていいと
おもっとるのかね？ええ？うちも資金が潤沢にあるわけじゃないんだよ。
勝手なことをされては困るよ。

ID:JHnSek2O0は、技術についていけなくなったロートルプログラマみたいな書き込みだなｗｗｗ

>>342
夏休みの宿題頑張れよ

できたけど、相当重いｗｗｗｗ＾＾；

確かに相当重いけど、仕方ないような気もする。

これでも５の板からしか検索させてないんですよｗｗｗ
もし、全板対象にしたら。。。。。。＾＾；

>>345
重いのは通信してるからだよ。
データはローカルで保存したのを使い
データ保存は、cronで5分ごとにまわすのが吉

>>345
毎回いちいち読みにいかずにキャッシュすれ

windowsだからｃｒｏｎは無いか。

このスレ自体がひとつのネタなのか？

>>348
なるほど、cronってコマンドですか？
ちなみにunixレンタル鯖つかってますよ

>>352
ぐぐったりはしないの？

>>353
ありがとうございました。チェックしますね＾＾

>>352
コマンドだよ。
unixならcron使えるが、ftpだけならだめぽ。

あとは時刻チェックのトリガでもつくって
cgiを読み込んだ時にローカルのログの取得時間と現在時刻の差があれば
データ保存のスクリプトをキックするとか

>>354
逆切れされなくてよかった。
http://uranai.no.land.to/search.cgi
トップページは書き出したhtmlファイルにすれば軽くならないかな？

>>355
なるほどですね。目処としてはどれくらいおきにキャッシュ作るようにすればいいんでしょうね。

専ブラ使ってない人向けサービス？

my $ua = new LWP::UserAgent;
$ua->agent("Monazilla/1.00");

my $url=$MAXHITSUBBACK;
my $HEADER = HTTP::Headers->new('Referer'=> "$MAXTHREADROOT");
$vipurl=$MAXTHREADROOT."/";
my $req = HTTP::Request->new("GET", $url, $HEADER);

my $status = $ua->request($req);
my $contentsdata=$status->content;

この表記の仕方って問題ありますか？
$MAXHITSUBBACKには　http://news18.2ch.net/bizplus/subback.html
$MAXTHREADROOTには　http://news18.2ch.net/bizplus
の値が入ってます

>>356
普通はそうなんですか？？？ごめんなさい。知識を有していなくて


>>358
いいえ、ただのプログラミングの勉強ですよー

>>360
今だとアクセスして一回、検索でもう一回でcgiが二回動いてるので。

http://ex16.2ch.net/news4vip/subject.txt
subject.txtを読み込むのは成功せず？

>>361
その方法があったのですね＾＾；
ちょっと待っててもらえますか。
違う部分でシステムが壊れちゃって＾＾；
すみません。

これはエロイｗｗｗｗｗ
http://37514.net/pc/weblog/home/ami/

おまたせしました、とりあえず５つの板で完全に動くようになりました

地震速報,http://news18.2ch.net/namazuplus,http://news18.2ch.net/namazuplus/subback.html
臨時地震,http://live22x.2ch.net/eq,http://live22x.2ch.net/eq/subback.html
臨時地震+,http://live23.2ch.net/eqplus,http://live23.2ch.net/eqplus/subback.html
政治家語録,http://news19.2ch.net/manifesto,http://news19.2ch.net/manifesto/subback.html
ビジネスnews+,http://news18.2ch.net/bizplus,http://news18.2ch.net/bizplus/subback.html

>>357
それはやってみないとわかんねｗｗｗｗｗ
全板をとってくるスクリプトにかかる時間しだいだな。

http://uranai.no.land.to/search.cgi?keyword=%91%8D%97%9D

とりあえず見てみてください。
どうでしょうか？？？

>>360
普通は最初のページをhtmlにするんだよ。
で、結果はcgiで出す。

「最近あった検索ワード」とかも上のほうに入れましょうかね

>>367
その方法も出来ますよー

そのcronの方法をちょっと今から調べますね＾＾

つまんねぇ
VIPじゃねぇ

>>370
cronで実行する場合、絶対パスが必要だから注意してね。

まだやってたのかー
>>1も助言してる人もガンバレ！

プログラム板でしたほうがよかったかも

あえてここでやりましょうよ＾＾

だいぶ形になってきてませんか？

あとは今夜やってもいいでしょうか？？
最後はさきほど、先人の方がおっしゃっていたcron機能を使ってキャッシュを
貯めて、そのキャッシュから検索をしていきたいと思います＾＾

ここは保守しないとすぐ落ちちゃうので、残ってるのを期待して、
もし落ちたらプログラム板か、またここに立てるとか。

来たけど・・・かいけつしてるぽ

どなたかcronに関して詳しくお願いします！

鯖側にキャッシュを蓄える以外の機能は完成させたつもりです

http://uranai.no.land.to/search.cgi
今のところこんなかんじです。
開始して12時間。やっと形になってきました＾＾；

http://uranai.no.land.to/search.cgi?keyword=%82%A8%82%C1%82%CF%82%A2&submit=%8C%9F%8D%F5

おっぱい

>>383
こういう使い方も出来ますねー＾＾

スレ内も検索してくれたら　神なのにな

>>380
cgiじゃなくて、シェルとして動くようにするのが必要だ

ま、あたまに

#!/bin/perl

ってかくだけでいいんだけどな。
あとパーミッションを７５５にする

>>385
5分くらい待たされそうだ

>>386
どこか参考サイトなどありました、教えてください

>>384
SUGEEEEEEEEE!!
尊敬に値する。ｶﾞﾝｶﾞﾚ

http://www.google.co.jp/search?hl=ja&inlang=ja&ie=Shift_JIS&q=cron
の最初のページは駄目か？
俺はUNIX全然わからん