TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【MT】MovableType【設置方法】
アプリケーションサーバって必要？
【PHP】下らねぇ質問はID出して書き込みやがれ 137
IDにPerlが出たら神!PHPが出たらｼﾒｼﾞ Part39
第二回 自作スクリプト発表会【PHP】
FreeStyleWikiスレ
☆ブラクラの製造方法を教えてください。
もうそろそろクッキーJavaScript必須でいいですか？
スクリプト言語と開発効率について
【Java】Play framework【Scala】
use Socket;について熱く語るスレ
- 1 ：02/03/10 〜 最終レス ：2017/12/30
- Perlの醍醐味であるSocketについて語ろうぜ
※質問は専用スレへ。CGI串ってどこ？といった類もお断り
- 2 ：
- ２
- 3 ：
- 今だ！3ゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣ (´´
∧∧ ） (´⌒(´
⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
￣￣ (´⌒(´⌒;;
ｽﾞｻﾞｰｰｰｰｰｯ
- 4 ：
- ４げと
- 5 ：
- 5げとおおおおおおおおおおおおおおおお
- 6 ：
- といってもネタがないので一つソースでも乗っけてみるか
#!/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のみ
- 7 ：
- 君たちの大好きな？ということはここは厨房が対象の
スレなんですね。失礼させて頂きます。
- 8 ：
- $1 = head("Agent: NTTDoKyuMo/427/31\n");
- 9 ：
- >>7
ここは別に厨対象じゃねーぞ。
3とかのアホ向け（藁
- 10 ：
- >>6さん
初心者なのでちょっとわからないのですが、#!/usr/local/bin/perl〜
で続く行がホスト名なのでしょうか？IEだと文字数オーバーしてしまい、
入らないのですが・・・。あとポート番号はデフォルトの8080でしょうか？
- 11 ：
- >>10
あんた何？
- 12 ：
- ちゃんとネタで返してやれよ
つーかこんな時間なのに人いるね
- 13 ：
- 居るときは居る。
- 14 ：
- >>10
それはホスト名ではなくProxyのプログラム自体だ。
たとえばこれをprx.plという名前で保存してUNIXやActivePerlの
導入された環境下においてコマンドプロンプトから
A:\>Perl prx.pl
ちなみにこの場合Proxyのホスト名は君が診断君などのページへ逝ったとき
REMOTE_HOSTとして表示されている変数に入っている。ポート番号は80だ。
わかったかな、>>10よ
- 15 ：
- うちのケーブル回線で56Kbps回線をシミュレートする必要が
あったから回線遅くするためのプロクシスクリプトは書いたな。
まあソケットから読み込むバッファサイズとスリープする秒数を
調整してselect挟むだけだけど。
普通のプロクシスクリプトも作ったけど、ただ単にHTTP1.0で
GET、POSTのみなら簡単なんだけど、HTTP1.1サポートするのが鬼の
ように面倒だったからやめたよ。httpsもあるし。使用用途はリクエストと
レスポンス（ヘッダだけじゃなく内容も）を全て記録したかったのと、
HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。
漏れはuse Socketだけでガリガリ書いてたから面倒に感じただけで、
他のモジュール使えば簡単にできんのかな。
- 16 ：
- ネタに（略
- 17 ：
- >あったから回線遅くするためのプロクシスクリプトは書いたな。
贅沢な悩みだな。しかしuse Socketだけで書くとは漢だな。
私も以前はuse Socketで最初から書いていたがだんだんConnectとListen
が定型文なのでサブルーチン化しちゃったのでuse IO::Socketと
変わらなくなったのでさっさと乗り換えた。
＞HTMLのフィルタリング、あとはハニーポットに使ったぐらいかな。
なんかアホが引っかかったか？（藁
- 18 ：
- どうでもいいけどHTTP 1.1でもっとも面倒なのはやっぱKeep-Aliveかの。
接続をcloseせずにwhileでループしてクリアしてるCGIを見たことあるけど
どうなのかな
- 19 ：
- >>17
アホ引っ掛けるためじゃなく、CodeRedI〜III騒ぎの時だよ。
ちなみにHTMLのフィルタリングは一度全部バッファに読み込んで
からじゃないとHTMLいじれないんで、遅いからやめた。forkしないと
遅すぎ。
- 20 ：
- >>17
あーなるほど。うちはファイアーウォールで中国鯖をカットしてたけど
それでもいくらかアタックがきたかな。アパッチなので無意味だけど（藁
最近はSELECT使うようになったけど、やっぱProxyにはfork使うべきじゃないかな
鯖系スクリプト一般に思うんだけど、プロセス数を少なくしようとしてSELECT
使うのはわかるけど、別スレッドに任せておいたほうがプログラム的に
すっきりするし、何より軽い感じがする。
- 21 ：
- >>20
forkはDoSを招きかねない
って塩兄ちゃんが昨日の日記に書いてた気がする。
いや、そんだけ。
- 22 ：
- あとは…Linux上で使うFlashGetもどきのスクリプトも書いたな。
リストファイル読み込んで任意の数に分割して平行でダウソ
する奴。リジューム付き。でももっと高機能な奴を発見した時点で
開発やめちゃったよ。CGIばっか仕事で作らされるとつまらなくなって
来るから、仕事してるフリをするために書いてたようなもんだし。
ところでPerlでRAWソケットって扱ったこと無いんだけど、なんか
楽ができるモジュールないのかな。さすがにガリガリ書くのは面倒。
まあ素直にCで書けって言われそうだけど。
- 23 ：
- RAWソケットはSYN Floodを撃つなんていう厨房なプログラムしか
作ったことないのであまり大きな顔できんが・・・
http://9mm.com/philez/lego
とりあえずこの人のを参考に作ったよ
どっちかっていうとPerlの知識って言うよりIPの知識が必要だった。
- 24 ：
- UNIX使いじゃないので私はよくわからないのだが、
PerlのRAWソケットもやっぱりRootじゃないと使えないのだろうか。
Cでは使えなかったような気がする。
あーなんかRAWソケットというとステルスポートスキャナとかSYN Floodとか
厨なものしか作ってない。鬱
生ソケット使って実用的なものって作れるんかいな？
- 25 ：
- >>23
お、貴重なサンプルスクリプトをありがとう。
でもやっぱりガリガリ書くのか（ｗ
ちょっとARPを弄りたいんで色々やってみるよ。
まあ仕事のフリをしながら書くんだけどね
- 26 ：
- >>20
selectよりforkが軽いというのは錯覚では？
- 27 ：
- >>24
Socket自体をrootでないと使えないということはない。
一般ユーザーに制限がかかるのはbindできるportナンバー。
- 28 ：
- >>27
いや、RAWの話でしょ。普通はスーパーユーザー
じゃないと使えないと思うけど。
- 29 ：
- >>22
Net::RawIPはどうか。サンプルスクリプトもいくつか付いてるし。
一部の人が喜びそうなlandとかoshareのサンプルもあり(w
関係ないけどNet::Pcapも楽ができる
- 30 ：
- >>26
いや、サーバー側じゃなくてクライアント側がね。
確かにサーバー側は重いかもしれんが所詮Perl串なんて不特定多数に
公開するものでもないのでforkを私はお勧めする。
>>22
名前からして便利そうな感じだがとりあえずオフィシャルサイト覗いてみると落ちてた（汗
とりあえず情報サンクス
http://quake.skif.net/RawIP/
- 31 ：
- ひさびさの有意義スレあげ
- 32 ：
- ＞Net::RawIP
oshareパケット、LAN内のWin98に向けてで実行してみたらまじでクラッシュしたよ（汗
98SEなら大丈夫なのかな？
それよりもtracerouteを生パケットレベルからやってるとこには感動
open( TR,"/usr/bin/traceroute $host" );
print while <TR>;
close( TR );
これだけで済むといえば済むのだが自分で1から作ってみるのも結構面白い。
なんかRAW SOCKETにはまりそうだ。
- 33 ：
- 以前はモジュール使わずにsocketで直接作ってたけど、最近は堕落してIO::Socketばっかだ。
>>18 コマンドパイプライニングが面倒。Keep-Alive許されるか否かがやってみないと判らないとい
うのは実装考えてつくった規格とは思えない。
- 34 ：
- 関係ないけどNet::Tracerouteってのもあるよ
- 35 ：
- use Socket6はどうよ。 …どうもこうも無いけど
- 36 ：
- 毒ﾃﾞﾑﾊﾟが使える。
- 37 ：
- IO::Socketを使うと堕落した感じがするのはなぜだろう。
・・・単に労力の差か。
>>33
リクエストのパイプライン化は確かに面倒だが、Keep-Aliveが実現できているサーバーなら、
リソースを取得してクライアントへの送信のみを行う子プロセスをつくって
親プロセスはリクエストを受け取り専門になって子プロセスにどんどん指示を出していき、
タスクリストを追加していく、という方法でRないかな。
ただその場合子プロセスのリソース取得方法もKeep-AliveをサポートしないとRない
と考えると多少鬱になる。これぐらいはHTTP1.0で許してもらおう（笑
- 38 ：
- なんかスレも下がってきてマターリ語れるのはよいが
さびしくなってきたな（藁
- 39 ：
- >>24
うぃraw_socketはrootじゃないと起こられる。Win32は関係ないけど。
raw_socket周りで面白かったのはicmp-echoとreplyでファイル転送ツールを作った時。
pingが通ればファイル転送可能！
でも激ｵｿ。ﾊﾞｸﾞ多数(涙)
- 40 ：
- >>39
pingでファイル転送デスカ・・・。おつかれさん。
私はUDPファイル転送なんて作ったことあるけど分割パケットを受信側で組み立てる
作業が難しかったね。LAN内では別にエラー訂正なんて要らないほど正確だったけど
インターネットに持ち出すとパケットの死ぬこと死ぬこと（藁
- 41 ：
- たまにはageてみませう
- 42 ：
- >>39
そのツールいい、面白そうだ。俺も今度暇つぶしに作ろっと。
役に立たないけど（ｗ
- 43 ：
- raw socketでIPMessengerを… (以下自粛)
>>33
Keep-Aliveなサーバでも勝手に切ってくる時もあったり…
- 44 ：
- PerlDuke下さい
- 45 ：
- >>44
#!/usr/local/bin/perl
while(1){if(fork()==0){while(1){print "R\n";}}}
ほれ
- 46 ：
- google なんかを利用する
スクリプトを書くにはどうしたらいいんですか？
- 47 ：
- #!perl
use Google;
$g = new Google(lang => 'ja');
$rh = $g->request('ほげ!');
while($r = $rh->fetch){
print "URI:", $r->uri, "\n";
}
__END__
…とかな（うそ
まぁお前、>>46はLWPでも調べなさいってこった。
- 48 ：
- >>47の仕様書にあわせてGoogle.pmを作ってみた。
暇だなぁ。
http://gikotk.tripod.co.jp/dust/Google.pm
use IO::Socketしてるのはやはりヘタレか？
- 49 ：
- 言ってみるもんだなぁ。サンクス！
- 50 ：
- >>48
お、あんたギコTkの作者かい。PerlでGUIとは熱いね。
- 51 ：
- >>48
ﾜﾗﾀ
折角だから遊ばせてもらおう。
- 52 ：
- ん〜む。思うように動かんなぁ。
ちょっと修正したけどけっこう途切れたり関連サイトのURIが取れなかったりする。
それにしてもGoogleのソースって読みづらいなぁ…。
- 53 ：
- >>50
おう、別スレで頑張っておりますー。無駄に熱いぞ。
>>47
ほんとにうまく動かんねぇ、スマヌ。
いちお、こんなのもあるみたいだけど。（使ってないからよくわからん）
http://search.cpan.org/search?dist=WWW-Search-Google
- 54 ：
- とりあえず修正・・・・
一応関連サイトが取れてごみも混ざらないように見えるがよくわからん。
HTTPとして間違ったヘッダを送ってるのは秘密だ。
- 55 ：
- 616765a
- 56 ：
- 放置してたのにあがってるよ（藁）
ところでSocketとあまり関係無いけど、CGI串作るとき、
みんなURLの分解はどうしてるのかな？
$url = "http://pc.2ch.sc/php/index.htm";
$dir = $url;
$dir =~ s!http://!!;
( $host, $port ) = split( /\//, $dir );
$dir =~ s/$host//;
こんな風にしてるんだけど正規表現だけでできそうな気が。
- 57 ：
- my ($host, $port, $file) = ($uri =~ m!http://([^:/]+)(?::(\d+)?(.+)!);
$portにundefだか0だかが入るのを気にしなければ1行。
- 58 ：
- じゃあ気にする時は $port ||= 80; とか追加すればいいのね
- 59 ：
- >>57
さんきゅー
ていうか難しく考えること無かったのね。
PORTの処理は単に別にすればよいと
- 60 ：
- URIの分解は、素直にURI.pm使ってるよ。楽チン。
- 61 ：
- age
- 62 ：
- インタープリタ言語でモジュールを必要以上に使いまくる漢がいるな
- 63 ：
- >>62
楽したいからperl使うんだろ。
- 64 ：
- 接続先のサーバが落ちてたりすると1分ぐらい放置されるんだけど、
反応が10秒間なかったら受信待ちを止めるとかはできませんか?
- 65 ：
- >64
シグナル・アラームを使えよ！ 使えない環境なのか？ どうなんだよ、
ハッキリしろよ、このチンカスがっ！
- 66 ：
- alarm()は使えます。
whileで複数のファイルを順番に読み込みたいのですが、
1つ目のファイルで$SIG{'ALRM'}の処理をすると、
そこで終了してしまいます。
終わらせずに次のファイルを読み込ませることは可能ですか?
- 67 ：
- >66
どういうコードを書けばそうなるんだ！ 答えてみろよ！ またシカトかよ！
ハッキリしろよ、このウンスジがっ！
- 68 ：
- http://search.cpan.org/search?dist=Net-MySQL
MySQLをIO::Socketで直接操作。。。
これってCGI-MLとかに出てくる人？
- 69 ：
- >>68
そうだよ。
CGI-MLよりperl-ooのがしっくりくるけど。
- 70 ：
- てゆうか、DBI-JPが初出じゃないのか。
- 71 ：
- >>70
今は亡きPerl-Win32-Jじゃないっけ？
これまた今は亡きスリーウェブの人だった頃に
見かけはじめたような気がする。
最近のシグネチャででてるPerlのYahooメッセンジャーも
IO::Socketネタだね。
http://ymca.infoware.ne.jp/?browse=ProductInfo
ヤフー的にアリなのかこーいうの？？？
- 72 ：
- test
- 73 ：
- hoge
- 74 ：
- 移転先の鯖から読めんぜ。
- 75 ：
- 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): $!";
- 76 ：
- http://yahooo.s2.x-beat.com/
- 77 ：
- なんでこんなモジュール１つのために単発スレ立ててるの？
- 78 ：
- >>こんなモジュール１つのため
厨房にとっては他のモジュールより100倍大事なんだよ
- 79 ：
- こんなモジュール使わなけりゃ２・３行で書けるのにねぇ。。。
- 80 ：
- >>78
うっせーよｗ
Socketは楽しいじゃないか。厨房かも知れないけどさ･･･
- 81 ：
- age
- 82 ：
- （＾＾）
- 83 ：
- （＾＾）
- 84 ：
- age
- 85 ：
- （＾＾）
- 86 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 87 ：
- age
- 88 ：
- めんどくさそうだね
- 89 ：
- ━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
- 90 ：
- ∧＿∧
ﾋﾟｭ.ｰ ( ＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
＝〔~∪￣￣〕
＝ ◎――◎ 山崎渉
- 91 ：
-
__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
- 92 ：
- ∧＿∧
（ ＾＾ ）＜ ぬるぽ（＾＾）
- 93 ：
- ∧＿∧ ∧＿∧
ﾋﾟｭ.ｰ （ ・３・） ( ＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
＝〔~∪￣￣￣∪￣￣〕
＝ ◎――――――◎ 山崎渉&ぼるじょあ
- 94 ：
- (⌒V⌒)
│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
- 95 ：
- Socketモジュールの説明してるところ全然無いね
- 96 ：
- % perldoc -m Socket
- 97 ：
- amd64 環境だと、alarm 使い終わった後に明示的に $SIG{ALRM} = "IGNORE"; しないと、SIGPIPE を吐き出しちゃうみたい。
- 98 ：
- hoshu
- 99 ：
- 2年半ぶりにage
- 100 ：
-
100〜のスレッドの続きを読む
Ｃ言語のＣＧＩを語りつつ普及するスレ
デザイナーとの連携
30代が趣味でこれから覚えるならどっち？Perlかphp
Webプログラマーになるためには
Wiki系とWikiEngineについて語るスレ Part5
【Java PHP CGI mod_perl】の使い分け for プロ
CGIで運営される２ちゃんねる
検索エンジンをつくりたい
【PHP】セッションについて語ろう！【PHP】
【PHP】セッションについて語ろう！【PHP】
--------------------
【鉄錆廃園】華不魅4【グラマラスゴシップ】
小児科学会「BCGワクチンは乳児優先で！」こどもクリニック「BCGの入荷予定がなくなった」→某病院「大人向けBCGやりまーす」 [ガーディス★]
【CTC】伊藤忠テクノソリューションってどうよ？14
ママ友になりたくないママの特徴 part19
U-NEXT（ユーネクスト）総合スレPart8
岡山県のスーパー
シラネーヨQ（シラネーヨ９）
メドベアンチスレ795
ケツ毛は肛門にﾋﾄﾞｲことをしたよね(´･ω･`)14本目
【テレ朝木21】サイン-法医学者 柚木貴志の事件- 3【大森南朋・松雪泰子・飯豊まりえ・仲村トオル】
Disqualia 2
BABYMETAL総合★1213【ベビーメタル】
【α】 Aマウントレンズ part97
【9434】ソフトバンク（株） 8 【〓SoftBank】
ニュー速民ってＳＥＸしたことあるの？寿司
【コロナ集団感染】 韓国、同性愛者（ゲイ）に対する風当たりが強まる [影のたけし軍団ρ★]
【中国報道】 日本が創設する 「宇宙作戦隊」 、宇宙ごみ監視なんて話は 「到底信じられない」 [05/16] [荒波φ★]
日本東京五輪誘致失敗落選祝賀会場
二次元兼用雑談4743 ざつあパンク
【バーチャルYouTuber】.LIVEアイドル部アンチスレ#10377【アップランド】
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
