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

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

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

※質問は専用スレへ。CGI串ってどこ？といった類もお断り
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
　　　　　　　　 　 　⊂＿)∪
■ このスレッドは過去ログ倉庫に格納されています