トップページ⇒php
103コメント26KB

use Socket;について熱く語るスレ

■ このスレッドは過去ログ倉庫に格納されています
0001use Socket;02/03/10 01:50ID:Q1gcj2Im
Perlの醍醐味であるSocketについて語ろうぜ

※質問は専用スレへ。CGI串ってどこ？といった類もお断り
0002nobodyさん02/03/10 01:50ID:???
２
0003nobodyさん02/03/10 01:58ID:WvppN2j7
今だ！3ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ
0004nobodyさん02/03/10 02:03ID:???
４げと
0005nobodyさん02/03/10 02:08ID:???
5げとおおおおおおおおおおおおおおおお
0006use Socket;02/03/10 02:26ID:Q1gcj2Im
といってもネタがないので一つソースでも乗っけてみるか

#!/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のみ
0007nobodyさん02/03/10 02:31ID:???
君たちの大好きな？ということはここは厨房が対象の
スレなんですね。失礼させて頂きます。
0008nobodyさん02/03/10 02:33ID:???
$1 = head("Agent: NTTDoKyuMo/427/31\n");
0009use Socket;02/03/10 02:33ID:???
>>7
ここは別に厨対象じゃねーぞ。
3とかのアホ向け（藁
0010nobodyさん02/03/10 02:40ID:???
>>6さん

初心者なのでちょっとわからないのですが、#!/usr/local/bin/perl〜
で続く行がホスト名なのでしょうか？IEだと文字数オーバーしてしまい、
入らないのですが・・・。あとポート番号はデフォルトの8080でしょうか？
0011nobodyさん02/03/10 02:41ID:???
>>10
あんた何？
0012nobodyさん02/03/10 02:42ID:???
ちゃんとネタで返してやれよ

つーかこんな時間なのに人いるね
0013nobodyさん02/03/10 02:45ID:???
居るときは居る。
0014nobodyさん02/03/10 02:51ID:???
>>10
それはホスト名ではなくProxyのプログラム自体だ。
たとえばこれをprx.plという名前で保存してUNIXやActivePerlの
導入された環境下においてコマンドプロンプトから
A:\>Perl prx.pl
ちなみにこの場合Proxyのホスト名は君が診断君などのページへ逝ったとき
REMOTE_HOSTとして表示されている変数に入っている。ポート番号は80だ。
わかったかな、>>10よ
0015nobodyさん02/03/10 02:54ID:???
うちのケーブル回線で56Kbps回線をシミュレートする必要が
あったから回線遅くするためのプロクシスクリプトは書いたな。
まあソケットから読み込むバッファサイズとスリープする秒数を
調整してselect挟むだけだけど。

普通のプロクシスクリプトも作ったけど、ただ単にHTTP1.0で
GET、POSTのみなら簡単なんだけど、HTTP1.1サポートするのが鬼の
ように面倒だったからやめたよ。httpsもあるし。使用用途はリクエストと
レスポンス（ヘッダだけじゃなく内容も）を全て記録したかったのと、
HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。

漏れはuse Socketだけでガリガリ書いてたから面倒に感じただけで、
他のモジュール使えば簡単にできんのかな。
0016nobodyさん02/03/10 02:55ID:???
ネタに（略
0017use Socket;02/03/10 02:59ID:???
>あったから回線遅くするためのプロクシスクリプトは書いたな。
贅沢な悩みだな。しかしuse Socketだけで書くとは漢だな。
私も以前はuse Socketで最初から書いていたがだんだんConnectとListen
が定型文なのでサブルーチン化しちゃったのでuse IO::Socketと
変わらなくなったのでさっさと乗り換えた。

＞HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。
なんかアホが引っかかったか？（藁
0018use Socket;02/03/10 03:01ID:???
どうでもいいけどHTTP 1.1でもっとも面倒なのはやっぱKeep-Aliveかの。
接続をcloseせずにwhileでループしてクリアしてるCGIを見たことあるけど
どうなのかな
0019nobodyさん02/03/10 03:01ID:???
>>17
アホ引っ掛けるためじゃなく、CodeRedI〜III騒ぎの時だよ。

ちなみにHTMLのフィルタリングは一度全部バッファに読み込んで
からじゃないとHTMLいじれないんで、遅いからやめた。forkしないと
遅すぎ。
0020use Socket;02/03/10 03:08ID:???
>>17
あーなるほど。うちはファイアーウォールで中国鯖をカットしてたけど
それでもいくらかアタックがきたかな。アパッチなので無意味だけど（藁

最近はSELECT使うようになったけど、やっぱProxyにはfork使うべきじゃないかな
鯖系スクリプト一般に思うんだけど、プロセス数を少なくしようとしてSELECT
使うのはわかるけど、別スレッドに任せておいたほうがプログラム的に
すっきりするし、何より軽い感じがする。
0021nobodyさん02/03/10 03:21ID:???
>>20
forkはDoSを招きかねない
って塩兄ちゃんが昨日の日記に書いてた気がする。

いや、そんだけ。
0022nobodyさん02/03/10 03:23ID:???
あとは…Linux上で使うFlashGetもどきのスクリプトも書いたな。
リストファイル読み込んで任意の数に分割して平行でダウソ
する奴。リジューム付き。でももっと高機能な奴を発見した時点で
開発やめちゃったよ。CGIばっか仕事で作らされるとつまらなくなって
来るから、仕事してるフリをするために書いてたようなもんだし。

ところでPerlでRAWソケットって扱ったこと無いんだけど、なんか
楽ができるモジュールないのかな。さすがにガリガリ書くのは面倒。
まあ素直にCで書けって言われそうだけど。
0023use Socket;02/03/10 03:35ID:???
RAWソケットはSYN Floodを撃つなんていう厨房なプログラムしか
作ったことないのであまり大きな顔できんが・・・

http://9mm.com/philez/lego
とりあえずこの人のを参考に作ったよ
どっちかっていうとPerlの知識って言うよりIPの知識が必要だった。
0024use Socket;02/03/10 03:38ID:???
UNIX使いじゃないので私はよくわからないのだが、
PerlのRAWソケットもやっぱりRootじゃないと使えないのだろうか。
Cでは使えなかったような気がする。

あーなんかRAWソケットというとステルスポートスキャナとかSYN Floodとか
厨なものしか作ってない。鬱
生ソケット使って実用的なものって作れるんかいな？
0025nobodyさん02/03/10 03:40ID:???
>>23
お、貴重なサンプルスクリプトをありがとう。
でもやっぱりガリガリ書くのか（ｗ

ちょっとARPを弄りたいんで色々やってみるよ。
まあ仕事のフリをしながら書くんだけどね
0026nobodyさん02/03/10 13:52ID:???
>>20
selectよりforkが軽いというのは錯覚では？

0027nobodyさん02/03/10 13:59ID:???
>>24
Socket自体をrootでないと使えないということはない。
一般ユーザーに制限がかかるのはbindできるportナンバー。
0028nobodyさん02/03/11 09:25ID:???
>>27
いや、RAWの話でしょ。普通はスーパーユーザー
じゃないと使えないと思うけど。
0029nobodyさん02/03/11 12:03ID:???
>>22
Net::RawIPはどうか。サンプルスクリプトもいくつか付いてるし。
一部の人が喜びそうなlandとかoshareのサンプルもあり(w

関係ないけどNet::Pcapも楽ができる
0030use Socket;02/03/11 19:29ID:???
>>26
いや、サーバー側じゃなくてクライアント側がね。
確かにサーバー側は重いかもしれんが所詮Perl串なんて不特定多数に
公開するものでもないのでforkを私はお勧めする。

>>22
名前からして便利そうな感じだがとりあえずオフィシャルサイト覗いてみると落ちてた（汗
とりあえず情報サンクス
http://quake.skif.net/RawIP/
0031nobodyさん02/03/11 19:48ID:lmK+A0LG
ひさびさの有意義スレあげ
0032use Socket;02/03/11 20:50ID:???
＞Net::RawIP
oshareパケット、LAN内のWin98に向けてで実行してみたらまじでクラッシュしたよ（汗
98SEなら大丈夫なのかな？

それよりもtracerouteを生パケットレベルからやってるとこには感動
open( TR,"/usr/bin/traceroute $host" );
print while <TR>;
close( TR );
これだけで済むといえば済むのだが自分で1から作ってみるのも結構面白い。
なんかRAW SOCKETにはまりそうだ。
0033nobodyさん02/03/11 21:57ID:m0K7iM7P
以前はモジュール使わずにsocketで直接作ってたけど、最近は堕落してIO::Socketばっかだ。
>>18 コマンドパイプライニングが面倒。Keep-Alive許されるか否かがやってみないと判らないとい
うのは実装考えてつくった規格とは思えない。
0034nobodyさん02/03/11 22:04ID:???
関係ないけどNet::Tracerouteってのもあるよ
0035nobodyさん02/03/11 22:06ID:???
use Socket6はどうよ。　…どうもこうも無いけど
0036nobodyさん02/03/11 22:09ID:Nq6ZCTrF
毒ﾃﾞﾑﾊﾟが使える。
0037use Socket;02/03/12 00:43ID:???
IO::Socketを使うと堕落した感じがするのはなぜだろう。
・・・単に労力の差か。

>>33
リクエストのパイプライン化は確かに面倒だが、Keep-Aliveが実現できているサーバーなら、
リソースを取得してクライアントへの送信のみを行う子プロセスをつくって
親プロセスはリクエストを受け取り専門になって子プロセスにどんどん指示を出していき、
タスクリストを追加していく、という方法で逝けないかな。
ただその場合子プロセスのリソース取得方法もKeep-Aliveをサポートしないと逝けない
と考えると多少鬱になる。これぐらいはHTTP1.0で許してもらおう（笑
0038use Socket;02/03/12 18:53ID:???
なんかスレも下がってきてマターリ語れるのはよいが
さびしくなってきたな（藁
0039nobodyさん02/03/12 19:08ID:???
>>24
うぃraw_socketはrootじゃないと起こられる。Win32は関係ないけど。

raw_socket周りで面白かったのはicmp-echoとreplyでファイル転送ツールを作った時。
pingが通ればファイル転送可能！
でも激ｵｿ。ﾊﾞｸﾞ多数(涙)
0040use Socket;02/03/12 19:38ID:???
>>39
pingでファイル転送デスカ・・・。おつかれさん。
私はUDPファイル転送なんて作ったことあるけど分割パケットを受信側で組み立てる
作業が難しかったね。LAN内では別にエラー訂正なんて要らないほど正確だったけど
インターネットに持ち出すとパケットの死ぬこと死ぬこと（藁
0041use Socket;02/03/12 19:40ID:YB/JsQLE
たまにはageてみませう
0042nobodyさん02/03/12 21:47ID:???
>>39
そのツールいい、面白そうだ。俺も今度暇つぶしに作ろっと。
役に立たないけど（ｗ
0043nobodyさん02/03/12 23:08ID:???
raw socketでIPMessengerを… (以下自粛)

>>33
Keep-Aliveなサーバでも勝手に切ってくる時もあったり…
0044nobodyさん02/03/13 00:19ID:???
PerlDuke下さい
0045nobodyさん02/03/13 00:22ID:???
>>44
#!/usr/local/bin/perl
while(1){if(fork()==0){while(1){print "氏ね\n";}}}

ほれ
0046nobodyさん02/03/13 03:21ID:???
google なんかを利用する
スクリプトを書くにはどうしたらいいんですか？
0047nobodyさん02/03/13 09:56ID:???
#!perl
use Google;
$g = new Google(lang => 'ja');
$rh = $g->request('ほげ!');
while($r = $rh->fetch){
print "URI:", $r->uri, "\n";
}
__END__
…とかな（うそ

まぁお前、>>46はLWPでも調べなさいってこった。
0048nobodyさん02/03/13 13:38ID:???
>>47の仕様書にあわせてGoogle.pmを作ってみた。
暇だなぁ。
http://gikotk.tripod.co.jp/dust/Google.pm
use IO::Socketしてるのはやはりヘタレか？
00494602/03/13 17:03ID:???
言ってみるもんだなぁ。サンクス！
0050use Socket;02/03/13 17:45ID:???
>>48
お、あんたギコTkの作者かい。PerlでGUIとは熱いね。
00514702/03/13 17:59ID:???
>>48
ﾜﾗﾀ
折角だから遊ばせてもらおう。
00524702/03/13 19:06ID:???
ん〜む。思うように動かんなぁ。
ちょっと修正したけどけっこう途切れたり関連サイトのURIが取れなかったりする。
それにしてもGoogleのソースって読みづらいなぁ…。
00534802/03/13 20:01ID:???
>>50
おう、別スレで頑張っておりますー。無駄に熱いぞ。
>>47
ほんとにうまく動かんねぇ、スマヌ。
いちお、こんなのもあるみたいだけど。（使ってないからよくわからん）
http://search.cpan.org/search?dist=WWW-Search-Google
00544802/03/13 20:22ID:???
とりあえず修正・・・・
一応関連サイトが取れてごみも混ざらないように見えるがよくわからん。
HTTPとして間違ったヘッダを送ってるのは秘密だ。
0055nobodyさん02/03/26 00:11ID:AmQVaL8y
616765a
0056use Socket;02/03/26 02:41ID:???
放置してたのにあがってるよ（藁）
ところでSocketとあまり関係無いけど、CGI串作るとき、
みんなURLの分解はどうしてるのかな？

$url = "http://pc.2ch.net/php/index.htm";
$dir = $url;
$dir =~ s!http://!!;
( $host, $port ) = split( /\//, $dir );
$dir =~ s/$host//;

こんな風にしてるんだけど正規表現だけでできそうな気が。
0057nobodyさん02/03/26 11:44ID:???
my ($host, $port, $file) = ($uri =~ m!http://([^:/]+)(?::(\d+)?(.+)!);

$portにundefだか0だかが入るのを気にしなければ1行。
0058nobodyさん02/03/26 17:40ID:???
じゃあ気にする時は $port ||= 80; とか追加すればいいのね
0059use Socket;02/03/26 18:17ID:???
>>57
さんきゅー
ていうか難しく考えること無かったのね。
PORTの処理は単に別にすればよいと
0060nobodyさん02/03/27 11:02ID:???
URIの分解は、素直にURI.pm使ってるよ。楽チン。
0061nobodyさん02/03/29 18:33ID:dJEnZQgW
age
0062 02/03/31 17:15ID:+CJv1xys
インタープリタ言語でモジュールを必要以上に使いまくる漢がいるな
0063nobodyさん02/03/31 18:28ID:???
>>62
楽したいからperl使うんだろ。
0064 02/04/06 03:00ID:Q2ecuzSu
接続先のサーバが落ちてたりすると1分ぐらい放置されるんだけど、
反応が10秒間なかったら受信待ちを止めるとかはできませんか?
0065nobodyさん02/04/06 06:28ID:???
>64
シグナル・アラームを使えよ！ 使えない環境なのか？ どうなんだよ、
ハッキリしろよ、このチンカスがっ！
00666402/04/06 22:33ID:ZVzzBO7a
alarm()は使えます。
whileで複数のファイルを順番に読み込みたいのですが、
1つ目のファイルで$SIG{'ALRM'}の処理をすると、
そこで終了してしまいます。
終わらせずに次のファイルを読み込ませることは可能ですか?
0067nobodyさん02/04/07 02:50ID:???
>66
どういうコードを書けばそうなるんだ！ 答えてみろよ！ またシカトかよ！
ハッキリしろよ、このウンスジがっ！
0068nobodyさん02/04/07 05:30ID:0gb5rv3T
http://search.cpan.org/search?dist=Net-MySQL

MySQLをIO::Socketで直接操作。。。
これってCGI-MLとかに出てくる人？
0069nobodyさん02/04/07 05:53ID:???
>>68
そうだよ。
CGI-MLよりperl-ooのがしっくりくるけど。
0070nobodyさん02/04/07 10:05ID:???
てゆうか、DBI-JPが初出じゃないのか。
0071nobodyさん02/04/09 03:39ID:???
>>70
今は亡きPerl-Win32-Jじゃないっけ？
これまた今は亡きスリーウェブの人だった頃に
見かけはじめたような気がする。

最近のシグネチャででてるPerlのYahooメッセンジャーも
IO::Socketネタだね。
http://ymca.infoware.ne.jp/?browse=ProductInfo

ヤフー的にアリなのかこーいうの？？？
0072nobodyさん02/04/30 21:03ID:???
test
0073nobodyさん02/05/01 06:52ID:???
hoge
0074nobodyさん02/07/16 22:48ID:???
移転先の鯖から読めんぜ。
0075socket初心者02/10/04 05:19ID:EErsm4Mz
bindで名前をつけようとすると
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): $!";
0076n02/10/04 05:52ID:ixFnVKaB
http://yahooo.s2.x-beat.com/
0077nobodyさん02/10/04 12:54ID:???
なんでこんなモジュール１つのために単発スレ立ててるの？
0078 ◆U5598YGuzE 02/10/04 12:56ID:???
>>こんなモジュール１つのため
厨房にとっては他のモジュールより100倍大事なんだよ
0079nobodyさん02/10/04 12:59ID:???
こんなモジュール使わなけりゃ２・３行で書けるのにねぇ。。。
0080use Socket;02/12/17 21:53ID:+/VfoKAG
>>78
うっせーよｗ
Socketは楽しいじゃないか。厨房かも知れないけどさ･･･
0081nobodyさん02/12/24 17:17ID:2kS8TiT1
age
0082山崎渉03/01/15 13:40ID:???
（＾＾）
0083山崎渉03/03/13 17:41ID:???
（＾＾）
0084nobodyさん03/04/17 10:19ID:GlJoeOTi
age
0085山崎渉03/04/17 11:57ID:???
（＾＾）
0086山崎渉03/04/20 06:27ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0087nobodyさん03/04/26 15:16ID:z2X+CXJ9
age
0088nobodyさん03/04/26 16:25ID:???
めんどくさそうだね
0089山崎渉03/05/22 02:07ID:???
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
0090山崎渉03/05/28 17:18ID:???
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
0091山崎 渉03/07/15 11:16ID:???

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
0092山崎 渉03/08/02 02:35ID:???
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0093ぼるじょあ ◆ySd1dMH5Gk 03/08/02 05:15ID:???
　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ
0094山崎 渉03/08/15 23:04ID:???
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
0095nobodyさん04/06/02 23:56ID:RiFz2Frq
Socketモジュールの説明してるところ全然無いね
0096nobodyさん04/06/03 00:08ID:???
% perldoc -m Socket
0097nobodyさん04/07/23 22:27ID:28JcNBl1
amd64 環境だと、alarm 使い終わった後に明示的に $SIG{ALRM} = "IGNORE"; しないと、SIGPIPE を吐き出しちゃうみたい。
0098nobodyさん04/12/22 18:58:48ID:???
hoshu
0099nobodyさん2007/07/04(水) 23:17:40ID:/v4FuUdg
2年半ぶりにage
0100nobodyさん2007/09/26(水) 12:31:28ID:???
0101nobodyさん2008/12/24(水) 01:35:52ID:???
ソケットはいいよね・・・
0102電脳プリオン2011/12/11(日) 22:18:01.05ID:????2BP(1960)

　　∧＿∧
　 （　・∀・） 　　 　 |　| ｶﾞｶﾞｯ
　と　　　　） 　　 　 |　|
　　 Ｙ　/ノ 　　　　 .人
　　　 /　） .人　　 < 　>_∧∩
　 ＿/し'　< 　>_∧∩｀Д´）/
　（＿フ彡　Ｖ｀Д´）/　　 / ←>>86
　　　　　　　　 　 　/ ←>>92
0103nobodyさん2013/04/02(火) 16:25:44.30ID:zXz89sBa
　　　　　 _
　　　　　 |O＼
　　　　　 |　　 ＼　ｷﾘｷﾘ
　　　　∧|∧ 　　＼　ｷﾘｷﾘ
ｸﾞｸﾞｩ>（；⌒ヽ　　　 ＼
　　　　∪　　|　　 　　(~)
　　　　　∪∪　　 γ´⌒｀ヽ
　　　　　）　）　　 　{i:i:i:i:i:i:i:i:}
　　　　 （　（　　　　(　´･ω･)、
　　　　　　　　　　　(O ⌒　)O
　　　　　　　　 　 　⊂＿)∪
■ このスレッドは過去ログ倉庫に格納されています