PerlとTCPに関するakaneharaのブックマーク (2)
-
メールを大量にテスト受信するサーバを作ってみた話 Posted 2013年3月16日 by uchiyama & filed under プログラミング. とにかく大量のメールを受信するだけサーバが欲しかったのでPerlで作ってみました。 Net::Server::Mail::SMTP + Parallel::Preforkを使ったプリフォーク型サーバにしました。 Net::Server::Mail::SMTPでSMTPコマンドそれぞれの処理を書き、 Parallel::Preforkでプリフォークの制御を行っています。 以下がサーバのプログラムになります。 プログラムの構成としては、Starletのコードを参考にしています。 package TestMailReceiver; use strict; use warnings; use IO::Socket::INET; use P
-
以下に単純なTCPサーバを示します。 ﹁#!/usr/bin/perl﹂の行は環境に応じて変更してください。 もし、/usr/bin/perlにperlが無い場合は﹁#!/usr/local/bin/perl﹂にあることが多いと思います。 UNIX系環境︵Linux含む︶では、﹁which perl﹂とやるとperlへのパスがわかります。 ﹁which perl﹂を実行しても無い場合には、perlがインストールされていないかパスが通していないかのどちらかを疑ってみてください。 #!/usr/bin/perl use IO::Socket; $sock0 = new IO::Socket::INET(Listen=>5, LocalAddr=>'localhost', LocalPort=>12345, Proto=>'tcp', Reuse=>1); die "IO::Socket : $
-
1