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

**use Socket;** · 02/03/10 01:50

Perlの醍醐味であるSocketについて語ろうぜ

※質問は専用スレへ。CGI串ってどこ？といった類もお断り

**nobodyさん** · 02/03/10 01:50

２

**nobodyさん** · 02/03/10 01:58

今だ！3ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

**nobodyさん** · 02/03/10 02:03

４げと

**nobodyさん** · 02/03/10 02:08

5げとおおおおおおおおおおおおおおおお

**use Socket;** · 02/03/10 02:26

といってもネタがないので一つソースでも乗っけてみるか

#!/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のみ

**nobodyさん** · 02/03/10 02:31

君たちの大好きな？ということはここは厨房が対象の
スレなんですね。失礼させて頂きます。

**nobodyさん** · 02/03/10 02:33

$1 = head("Agent: NTTDoKyuMo/427/31\n");

**use Socket;** · 02/03/10 02:33

>>7
ここは別に厨対象じゃねーぞ。
3とかのアホ向け（藁

**nobodyさん** · 02/03/10 02:40

>>6さん

初心者なのでちょっとわからないのですが、#!/usr/local/bin/perl～
で続く行がホスト名なのでしょうか？IEだと文字数オーバーしてしまい、
入らないのですが・・・。あとポート番号はデフォルトの8080でしょうか？

**nobodyさん** · 02/03/10 02:41

>>10
あんた何？

**nobodyさん** · 02/03/10 02:42

ちゃんとネタで返してやれよ

つーかこんな時間なのに人いるね

**nobodyさん** · 02/03/10 02:45

居るときは居る。

**nobodyさん** · 02/03/10 02:51

>>10
それはホスト名ではなくProxyのプログラム自体だ。
たとえばこれをprx.plという名前で保存してUNIXやActivePerlの
導入された環境下においてコマンドプロンプトから
A:\>Perl prx.pl
ちなみにこの場合Proxyのホスト名は君が診断君などのページへ逝ったとき
REMOTE_HOSTとして表示されている変数に入っている。ポート番号は80だ。
わかったかな、>>10よ

**nobodyさん** · 02/03/10 02:54

うちのケーブル回線で56Kbps回線をシミュレートする必要が
あったから回線遅くするためのプロクシスクリプトは書いたな。
まあソケットから読み込むバッファサイズとスリープする秒数を
調整してselect挟むだけだけど。

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

漏れはuse Socketだけでガリガリ書いてたから面倒に感じただけで、
他のモジュール使えば簡単にできんのかな。

**nobodyさん** · 02/03/10 02:55

ネタに（略

**use Socket;** · 02/03/10 02:59

>あったから回線遅くするためのプロクシスクリプトは書いたな。
贅沢な悩みだな。しかしuse Socketだけで書くとは漢だな。
私も以前はuse Socketで最初から書いていたがだんだんConnectとListen
が定型文なのでサブルーチン化しちゃったのでuse IO::Socketと
変わらなくなったのでさっさと乗り換えた。

＞HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。
なんかアホが引っかかったか？（藁

**use Socket;** · 02/03/10 03:01

どうでもいいけどHTTP 1.1でもっとも面倒なのはやっぱKeep-Aliveかの。
接続をcloseせずにwhileでループしてクリアしてるCGIを見たことあるけど
どうなのかな

**nobodyさん** · 02/03/10 03:01

>>17
アホ引っ掛けるためじゃなく、CodeRedI～III騒ぎの時だよ。

ちなみにHTMLのフィルタリングは一度全部バッファに読み込んで
からじゃないとHTMLいじれないんで、遅いからやめた。forkしないと
遅すぎ。

**use Socket;** · 02/03/10 03:08

>>17
あーなるほど。うちはファイアーウォールで中国鯖をカットしてたけど
それでもいくらかアタックがきたかな。アパッチなので無意味だけど（藁

最近はSELECT使うようになったけど、やっぱProxyにはfork使うべきじゃないかな
鯖系スクリプト一般に思うんだけど、プロセス数を少なくしようとしてSELECT
使うのはわかるけど、別スレッドに任せておいたほうがプログラム的に
すっきりするし、何より軽い感じがする。

**nobodyさん** · 02/03/10 03:21

>>20
forkはDoSを招きかねない
って塩兄ちゃんが昨日の日記に書いてた気がする。

いや、そんだけ。

**nobodyさん** · 02/03/10 03:23

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

ところでPerlでRAWソケットって扱ったこと無いんだけど、なんか
楽ができるモジュールないのかな。さすがにガリガリ書くのは面倒。
まあ素直にCで書けって言われそうだけど。

**use Socket;** · 02/03/10 03:35

RAWソケットはSYN Floodを撃つなんていう厨房なプログラムしか
作ったことないのであまり大きな顔できんが・・・

http://9mm.com/philez/lego
とりあえずこの人のを参考に作ったよ
どっちかっていうとPerlの知識って言うよりIPの知識が必要だった。

**use Socket;** · 02/03/10 03:38

UNIX使いじゃないので私はよくわからないのだが、
PerlのRAWソケットもやっぱりRootじゃないと使えないのだろうか。
Cでは使えなかったような気がする。

あーなんかRAWソケットというとステルスポートスキャナとかSYN Floodとか
厨なものしか作ってない。鬱
生ソケット使って実用的なものって作れるんかいな？

**nobodyさん** · 02/03/10 03:40

>>23
お、貴重なサンプルスクリプトをありがとう。
でもやっぱりガリガリ書くのか（ｗ

ちょっとARPを弄りたいんで色々やってみるよ。
まあ仕事のフリをしながら書くんだけどね

**nobodyさん** · 02/03/10 13:52

>>20
selectよりforkが軽いというのは錯覚では？

**nobodyさん** · 02/03/10 13:59

>>24
Socket自体をrootでないと使えないということはない。
一般ユーザーに制限がかかるのはbindできるportナンバー。

**nobodyさん** · 02/03/11 09:25

>>27
いや、RAWの話でしょ。普通はスーパーユーザー
じゃないと使えないと思うけど。

**nobodyさん** · 02/03/11 12:03

>>22
Net::RawIPはどうか。サンプルスクリプトもいくつか付いてるし。
一部の人が喜びそうなlandとかoshareのサンプルもあり(w

関係ないけどNet::Pcapも楽ができる

**use Socket;** · 02/03/11 19:29

>>26
いや、サーバー側じゃなくてクライアント側がね。
確かにサーバー側は重いかもしれんが所詮Perl串なんて不特定多数に
公開するものでもないのでforkを私はお勧めする。

>>22
名前からして便利そうな感じだがとりあえずオフィシャルサイト覗いてみると落ちてた（汗
とりあえず情報サンクス
http://quake.skif.net/RawIP/

**nobodyさん** · 02/03/11 19:48

ひさびさの有意義スレあげ

**use Socket;** · 02/03/11 20:50

＞Net::RawIP
oshareパケット、LAN内のWin98に向けてで実行してみたらまじでクラッシュしたよ（汗
98SEなら大丈夫なのかな？

それよりもtracerouteを生パケットレベルからやってるとこには感動
open( TR,"/usr/bin/traceroute $host" );
print while <TR>;
close( TR );
これだけで済むといえば済むのだが自分で1から作ってみるのも結構面白い。
なんかRAW SOCKETにはまりそうだ。

**nobodyさん** · 02/03/11 21:57

以前はモジュール使わずにsocketで直接作ってたけど、最近は堕落してIO::Socketばっかだ。
>>18 コマンドパイプライニングが面倒。Keep-Alive許されるか否かがやってみないと判らないとい
うのは実装考えてつくった規格とは思えない。

**nobodyさん** · 02/03/11 22:04

関係ないけどNet::Tracerouteってのもあるよ

**nobodyさん** · 02/03/11 22:06

use Socket6はどうよ。　…どうもこうも無いけど

**nobodyさん** · 02/03/11 22:09

毒ﾃﾞﾑﾊﾟが使える。

**use Socket;** · 02/03/12 00:43

IO::Socketを使うと堕落した感じがするのはなぜだろう。
・・・単に労力の差か。

>>33
リクエストのパイプライン化は確かに面倒だが、Keep-Aliveが実現できているサーバーなら、
リソースを取得してクライアントへの送信のみを行う子プロセスをつくって
親プロセスはリクエストを受け取り専門になって子プロセスにどんどん指示を出していき、
タスクリストを追加していく、という方法で逝けないかな。
ただその場合子プロセスのリソース取得方法もKeep-Aliveをサポートしないと逝けない
と考えると多少鬱になる。これぐらいはHTTP1.0で許してもらおう（笑

**use Socket;** · 02/03/12 18:53

なんかスレも下がってきてマターリ語れるのはよいが
さびしくなってきたな（藁

**nobodyさん** · 02/03/12 19:08

>>24
うぃraw_socketはrootじゃないと起こられる。Win32は関係ないけど。

raw_socket周りで面白かったのはicmp-echoとreplyでファイル転送ツールを作った時。
pingが通ればファイル転送可能！
でも激ｵｿ。ﾊﾞｸﾞ多数(涙)

**use Socket;** · 02/03/12 19:38

>>39
pingでファイル転送デスカ・・・。おつかれさん。
私はUDPファイル転送なんて作ったことあるけど分割パケットを受信側で組み立てる
作業が難しかったね。LAN内では別にエラー訂正なんて要らないほど正確だったけど
インターネットに持ち出すとパケットの死ぬこと死ぬこと（藁

**use Socket;** · 02/03/12 19:40

たまにはageてみませう

**nobodyさん** · 02/03/12 21:47

>>39
そのツールいい、面白そうだ。俺も今度暇つぶしに作ろっと。
役に立たないけど（ｗ

**nobodyさん** · 02/03/12 23:08

raw socketでIPMessengerを… (以下自粛)

>>33
Keep-Aliveなサーバでも勝手に切ってくる時もあったり…

**nobodyさん** · 02/03/13 00:19

PerlDuke下さい

**nobodyさん** · 02/03/13 00:22

>>44
#!/usr/local/bin/perl
while(1){if(fork()==0){while(1){print "氏ね\n";}}}

ほれ

**nobodyさん** · 02/03/13 03:21

google なんかを利用する
スクリプトを書くにはどうしたらいいんですか？

**nobodyさん** · 02/03/13 09:56

#!perl
use Google;
$g = new Google(lang => 'ja');
$rh = $g->request('ほげ!');
while($r = $rh->fetch){
print "URI:", $r->uri, "\n";
}
__END__
…とかな（うそ

まぁお前、>>46はLWPでも調べなさいってこった。

**nobodyさん** · 02/03/13 13:38

>>47の仕様書にあわせてGoogle.pmを作ってみた。
暇だなぁ。
http://gikotk.tripod.co.jp/dust/Google.pm
use IO::Socketしてるのはやはりヘタレか？

46 · 02/03/13 17:03

言ってみるもんだなぁ。サンクス！

**use Socket;** · 02/03/13 17:45

>>48
お、あんたギコTkの作者かい。PerlでGUIとは熱いね。

47 · 02/03/13 17:59

>>48
ﾜﾗﾀ
折角だから遊ばせてもらおう。

47 · 02/03/13 19:06

ん～む。思うように動かんなぁ。
ちょっと修正したけどけっこう途切れたり関連サイトのURIが取れなかったりする。
それにしてもGoogleのソースって読みづらいなぁ…。

48 · 02/03/13 20:01

>>50
おう、別スレで頑張っておりますー。無駄に熱いぞ。
>>47
ほんとにうまく動かんねぇ、スマヌ。
いちお、こんなのもあるみたいだけど。（使ってないからよくわからん）
http://search.cpan.org/search?dist=WWW-Search-Google

48 · 02/03/13 20:22

とりあえず修正・・・・
一応関連サイトが取れてごみも混ざらないように見えるがよくわからん。
HTTPとして間違ったヘッダを送ってるのは秘密だ。

**nobodyさん** · 02/03/26 00:11

616765a

**use Socket;** · 02/03/26 02:41

放置してたのにあがってるよ（藁）
ところでSocketとあまり関係無いけど、CGI串作るとき、
みんなURLの分解はどうしてるのかな？

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

こんな風にしてるんだけど正規表現だけでできそうな気が。

**nobodyさん** · 02/03/26 11:44

my ($host, $port, $file) = ($uri =~ m!http://([^:/]+)(?::(\d+)?(.+)!);

$portにundefだか0だかが入るのを気にしなければ1行。

**nobodyさん** · 02/03/26 17:40

じゃあ気にする時は $port ||= 80; とか追加すればいいのね

**use Socket;** · 02/03/26 18:17

>>57
さんきゅー
ていうか難しく考えること無かったのね。
PORTの処理は単に別にすればよいと

**nobodyさん** · 02/03/27 11:02

URIの分解は、素直にURI.pm使ってるよ。楽チン。

**nobodyさん** · 02/03/29 18:33

age

02/03/31 17:15

インタープリタ言語でモジュールを必要以上に使いまくる漢がいるな

**nobodyさん** · 02/03/31 18:28

>>62
楽したいからperl使うんだろ。

02/04/06 03:00

接続先のサーバが落ちてたりすると1分ぐらい放置されるんだけど、
反応が10秒間なかったら受信待ちを止めるとかはできませんか?

**nobodyさん** · 02/04/06 06:28

>64
シグナル・アラームを使えよ！使えない環境なのか？どうなんだよ、
ハッキリしろよ、このチンカスがっ！

64 · 02/04/06 22:33

alarm()は使えます。
whileで複数のファイルを順番に読み込みたいのですが、
1つ目のファイルで$SIG{'ALRM'}の処理をすると、
そこで終了してしまいます。
終わらせずに次のファイルを読み込ませることは可能ですか?

**nobodyさん** · 02/04/07 02:50

>66
どういうコードを書けばそうなるんだ！答えてみろよ！またシカトかよ！
ハッキリしろよ、このウンスジがっ！

**nobodyさん** · 02/04/07 05:30

http://search.cpan.org/search?dist=Net-MySQL

MySQLをIO::Socketで直接操作。。。
これってCGI-MLとかに出てくる人？

**nobodyさん** · 02/04/07 05:53

>>68
そうだよ。
CGI-MLよりperl-ooのがしっくりくるけど。

**nobodyさん** · 02/04/07 10:05

てゆうか、DBI-JPが初出じゃないのか。

**nobodyさん** · 02/04/09 03:39

>>70
今は亡きPerl-Win32-Jじゃないっけ？
これまた今は亡きスリーウェブの人だった頃に
見かけはじめたような気がする。

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

ヤフー的にアリなのかこーいうの？？？

**nobodyさん** · 02/04/30 21:03

test

**nobodyさん** · 02/05/01 06:52

hoge

**nobodyさん** · 02/07/16 22:48

移転先の鯖から読めんぜ。

**socket初心者** · 02/10/04 05:19

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): $!";

n · 02/10/04 05:52

http://yahooo.s2.x-beat.com/

**nobodyさん** · 02/10/04 12:54

なんでこんなモジュール１つのために単発スレ立ててるの？

◆U5598YGuzE · 02/10/04 12:56

>>こんなモジュール１つのため
厨房にとっては他のモジュールより100倍大事なんだよ

**nobodyさん** · 02/10/04 12:59

こんなモジュール使わなけりゃ２・３行で書けるのにねぇ。。。

**use Socket;** · 02/12/17 21:53

>>78
うっせーよｗ
Socketは楽しいじゃないか。厨房かも知れないけどさ･･･

**nobodyさん** · 02/12/24 17:17

age

**山崎渉** · 03/01/15 13:40

（＾＾）

**山崎渉** · 03/03/13 17:41

（＾＾）

**nobodyさん** · 03/04/17 10:19

age

**山崎渉** · 03/04/17 11:57

（＾＾）

**山崎渉** · 03/04/20 06:27

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**nobodyさん** · 03/04/26 15:16

age

**nobodyさん** · 03/04/26 16:25

めんどくさそうだね

**山崎渉** · 03/05/22 02:07

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

**山崎渉** · 03/05/28 17:18

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

**山崎渉** · 03/07/15 11:16

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

**山崎渉** · 03/08/02 02:35

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**ぼるじょあ** ◆ySd1dMH5Gk · 03/08/02 05:15

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

**山崎渉** · 03/08/15 23:04

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

**nobodyさん** · 04/06/02 23:56

Socketモジュールの説明してるところ全然無いね

**nobodyさん** · 04/06/03 00:08

% perldoc -m Socket

**nobodyさん** · 04/07/23 22:27

amd64 環境だと、alarm 使い終わった後に明示的に $SIG{ALRM} = "IGNORE"; しないと、SIGPIPE を吐き出しちゃうみたい。

**nobodyさん** · 04/12/22 18:58:48

hoshu

**nobodyさん** · 2007/07/04(水) 23:17:40

2年半ぶりにage

**nobodyさん** · 2007/09/26(水) 12:31:28

**nobodyさん** · 2008/12/24(水) 01:35:52

ソケットはいいよね・・・