※質問は専用スレへ。CGI串ってどこ？といった類もお断り
#!/usr/local/bin/perl
use IO::Socket;use LWP::Simple;
while(1){$n=IO::Socket::INET->new(LocalPort=>80,Listen=>10)->accept();
print$n get((split/ /,<$n>)[1]);$n->close();}
ほれ、君たちの大好きなProxyじゃ。ただしGETのみ
スレなんですね。失礼させて頂きます。
ここは別に厨対象じゃねーぞ。
3とかのアホ向け（藁
初心者なのでちょっとわからないのですが、#!/usr/local/bin/perl〜
で続く行がホスト名なのでしょうか？IEだと文字数オーバーしてしまい、
入らないのですが・・・。あとポート番号はデフォルトの8080でしょうか？
あんた何？
つーかこんな時間なのに人いるね
それはホスト名ではなくProxyのプログラム自体だ。
たとえばこれをprx.plという名前で保存してUNIXやActivePerlの
導入された環境下においてコマンドプロンプトから
A:\>Perl prx.pl
ちなみにこの場合Proxyのホスト名は君が診断君などのページへ逝ったとき
REMOTE_HOSTとして表示されている変数に入っている。ポート番号は80だ。
わかったかな、よ
あったから回線遅くするためのプロクシスクリプトは書いたな。
まあソケットから読み込むバッファサイズとスリープする秒数を
調整してselect挟むだけだけど。
普通のプロクシスクリプトも作ったけど、ただ単にHTTP1.0で
GET、POSTのみなら簡単なんだけど、HTTP1.1サポートするのが鬼の
ように面倒だったからやめたよ。httpsもあるし。使用用途はリクエストと
レスポンス（ヘッダだけじゃなく内容も）を全て記録したかったのと、
HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。
漏れはuse Socketだけでガリガリ書いてたから面倒に感じただけで、
他のモジュール使えば簡単にできんのかな。
贅沢な悩みだな。しかしuse Socketだけで書くとは漢だな。
私も以前はuse Socketで最初から書いていたがだんだんConnectとListen
が定型文なのでサブルーチン化しちゃったのでuse IO::Socketと
変わらなくなったのでさっさと乗り換えた。
＞HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。
なんかアホが引っかかったか？（藁
接続をcloseせずにwhileでループしてクリアしてるCGIを見たことあるけど
どうなのかな
アホ引っ掛けるためじゃなく、CodeRedI〜III騒ぎの時だよ。
ちなみにHTMLのフィルタリングは一度全部バッファに読み込んで
からじゃないとHTMLいじれないんで、遅いからやめた。forkしないと
遅すぎ。
あーなるほど。うちはファイアーウォールで中国鯖をカットしてたけど
それでもいくらかアタックがきたかな。アパッチなので無意味だけど（藁
最近はSELECT使うようになったけど、やっぱProxyにはfork使うべきじゃないかな
鯖系スクリプト一般に思うんだけど、プロセス数を少なくしようとしてSELECT
使うのはわかるけど、別スレッドに任せておいたほうがプログラム的に
すっきりするし、何より軽い感じがする。
forkはDoSを招きかねない
って塩兄ちゃんが昨日の日記に書いてた気がする。
いや、そんだけ。
リストファイル読み込んで任意の数に分割して平行でダウソ
する奴。リジューム付き。でももっと高機能な奴を発見した時点で
開発やめちゃったよ。CGIばっか仕事で作らされるとつまらなくなって
来るから、仕事してるフリをするために書いてたようなもんだし。
ところでPerlでRAWソケットって扱ったこと無いんだけど、なんか
楽ができるモジュールないのかな。さすがにガリガリ書くのは面倒。
まあ素直にCで書けって言われそうだけど。
作ったことないのであまり大きな顔できんが・・・
ttp://http://9mm.com/philez/lego とりあえずこの人のを参考に作ったよ
どっちかっていうとPerlの知識って言うよりIPの知識が必要だった。
PerlのRAWソケットもやっぱりRootじゃないと使えないのだろうか。
Cでは使えなかったような気がする。
あーなんかRAWソケットというとステルスポートスキャナとかSYN Floodとか
厨なものしか作ってない。鬱
生ソケット使って実用的なものって作れるんかいな？
お、貴重なサンプルスクリプトをありがとう。
でもやっぱりガリガリ書くのか（ｗ
ちょっとARPを弄りたいんで色々やってみるよ。
まあ仕事のフリをしながら書くんだけどね
selectよりforkが軽いというのは錯覚では？
Socket自体をrootでないと使えないということはない。
一般ユーザーに制限がかかるのはbindできるportナンバー。
いや、RAWの話でしょ。普通はスーパーユーザー
じゃないと使えないと思うけど。
Net::RawIPはどうか。サンプルスクリプトもいくつか付いてるし。
一部の人が喜びそうなlandとかoshareのサンプルもあり(w
関係ないけどNet::Pcapも楽ができる
いや、サーバー側じゃなくてクライアント側がね。
確かにサーバー側は重いかもしれんが所詮Perl串なんて不特定多数に
公開するものでもないのでforkを私はお勧めする。
名前からして便利そうな感じだがとりあえずオフィシャルサイト覗いてみると落ちてた（汗
とりあえず情報サンクス
ttp://http://quake.skif.net/RawIP/ oshareパケット、LAN内のWin98に向けてで実行してみたらまじでクラッシュしたよ（汗
98SEなら大丈夫なのかな？
それよりもtracerouteを生パケットレベルからやってるとこには感動
open( TR,"/usr/bin/traceroute $host" );
print while <TR>;
close( TR );
これだけで済むといえば済むのだが自分で1から作ってみるのも結構面白い。
なんかRAW SOCKETにはまりそうだ。
コマンドパイプライニングが面倒。Keep-Alive許されるか否かがやってみないと判らないとい
うのは実装考えてつくった規格とは思えない。
・・・単に労力の差か。
リクエストのパイプライン化は確かに面倒だが、Keep-Aliveが実現できているサーバーなら、
リソースを取得してクライアントへの送信のみを行う子プロセスをつくって
親プロセスはリクエストを受け取り専門になって子プロセスにどんどん指示を出していき、
タスクリストを追加していく、という方法で逝けないかな。
ただその場合子プロセスのリソース取得方法もKeep-Aliveをサポートしないと逝けない
と考えると多少鬱になる。これぐらいはHTTP1.0で許してもらおう（笑
さびしくなってきたな（藁
うぃraw_socketはrootじゃないと起こられる。Win32は関係ないけど。
raw_socket周りで面白かったのはicmp-echoとreplyでファイル転送ツールを作った時。
pingが通ればファイル転送可能！
でも激ｵｿ。ﾊﾞｸﾞ多数(涙)
pingでファイル転送デスカ・・・。おつかれさん。
私はUDPファイル転送なんて作ったことあるけど分割パケットを受信側で組み立てる
作業が難しかったね。LAN内では別にエラー訂正なんて要らないほど正確だったけど
インターネットに持ち出すとパケットの死ぬこと死ぬこと（藁
そのツールいい、面白そうだ。俺も今度暇つぶしに作ろっと。
役に立たないけど（ｗ
Keep-Aliveなサーバでも勝手に切ってくる時もあったり…
#!/usr/local/bin/perl
while(1){if(fork()==0){while(1){print "氏ね\n";}}}
ほれ
スクリプトを書くにはどうしたらいいんですか？
use Google;
$g = new Google(lang => 'ja');
$rh = $g->request('ほげ!');
while($r = $rh->fetch){
print "URI:", $r->uri, "\n";
}
__END__
…とかな（うそ
まぁお前、はLWPでも調べなさいってこった。
暇だなぁ。
ttp://http://gikotk.tripod.co.jp/dust/Google.pm use IO::Socketしてるのはやはりヘタレか？
お、あんたギコTkの作者かい。PerlでGUIとは熱いね。
ﾜﾗﾀ
折角だから遊ばせてもらおう。
ちょっと修正したけどけっこう途切れたり関連サイトのURIが取れなかったりする。
それにしてもGoogleのソースって読みづらいなぁ…。
おう、別スレで頑張っておりますー。無駄に熱いぞ。
ほんとにうまく動かんねぇ、スマヌ。
いちお、こんなのもあるみたいだけど。（使ってないからよくわからん）
ttp://http://search.cpan.org/search?dist=WWW-Search-Google 一応関連サイトが取れてごみも混ざらないように見えるがよくわからん。
HTTPとして間違ったヘッダを送ってるのは秘密だ。
ところでSocketとあまり関係無いけど、CGI串作るとき、
みんなURLの分解はどうしてるのかな？
$url = "ttp://pc.5ch.net/php/index.htm">
ttp://pc.2ch.net/php/index.htm"; $dir = $url;
$dir =~ s!
ttp://http://!!; ( $host, $port ) = split( /\//, $dir );
$dir =~ s/$host//;
こんな風にしてるんだけど正規表現だけでできそうな気が。
ttp://http://([^:/]+)(?::(\d+)?(.+)!); $portにundefだか0だかが入るのを気にしなければ1行。
さんきゅー
ていうか難しく考えること無かったのね。
PORTの処理は単に別にすればよいと
楽したいからperl使うんだろ。
反応が10秒間なかったら受信待ちを止めるとかはできませんか?
シグナル・アラームを使えよ！ 使えない環境なのか？ どうなんだよ、
ハッキリしろよ、このチンカスがっ！
whileで複数のファイルを順番に読み込みたいのですが、
1つ目のファイルで$SIG{'ALRM'}の処理をすると、
そこで終了してしまいます。
終わらせずに次のファイルを読み込ませることは可能ですか?
どういうコードを書けばそうなるんだ！ 答えてみろよ！ またシカトかよ！
ハッキリしろよ、このウンスジがっ！
ttp://http://search.cpan.org/search?dist=Net-MySQL MySQLをIO::Socketで直接操作。。。
これってCGI-MLとかに出てくる人？
そうだよ。
CGI-MLよりperl-ooのがしっくりくるけど。
今は亡きPerl-Win32-Jじゃないっけ？
これまた今は亡きスリーウェブの人だった頃に
見かけはじめたような気がする。
最近のシグネチャででてるPerlのYahooメッセンジャーも
IO::Socketネタだね。
ttp://http://ymca.infoware.ne.jp/?browse=ProductInfo ヤフー的にアリなのかこーいうの？？？
permissionが許可されてないとでるのはなぜ？
念の為にソース
my ($myport) = @_;
my $proto = getprotobyname('udp');
socket(Sock, &AF_INET, &SOCK_DGRAM, $proto) || die "socket: $!";
if($^O ne 'MacOS'){
setsockopt(Sock, SOL_SOCKET, SO_BROADCAST, 1)|| die "setsockopt: $!";
}
my $this = &sockaddr_in( $myport, &INADDR_ANY() );
bind(Sock, $this) || die "bind(syslog): $!";
ttp://http://yahooo.s2.x-beat.com/ 厨房にとっては他のモジュールより100倍大事なんだよ
うっせーよｗ
Socketは楽しいじゃないか。厨房かも知れないけどさ･･･
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
（ ＾＾ ）＜ ぬるぽ（＾＾）
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
∧＿∧
（ ・∀・） | | ｶﾞｶﾞｯ
と ） | |
Ｙ /ノ .人
/ ） .人 < >_∧∩
＿/し' < >_∧∩｀Д´）/
（＿フ彡 Ｖ｀Д´）/ / ←
/ ←
|O＼
| ＼ ｷﾘｷﾘ
∧|∧ ＼ ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ ＼
∪ | (~)
∪∪ γ´⌒｀ヽ
） ） {i:i:i:i:i:i:i:i:}
（ （ ( ´･ω･)、
(O ⌒ )O
⊂＿)∪
参考までに、
⇒ 『半藤のブブイウイウレレ』 というサイトで見ることができます。
グーグル検索⇒『半藤のブブイウイウレレ』
MSFB9JBFN5
