- Perlについての質問箱 64箱目 [転載禁止]©2ch.net
748 ：デフォルトの名無しさん[sage]：2015/12/16(水) 02:15:49.00 ID:YMTo43VL - 簡易的なWebサーバー機能が必要で、超簡易的なソケットで最低限の物を組みました。いま手元にコードがないのですが最終的にPARでexeにする予定で、Perl単体で完結、Brewとかそっち系ではダメな状況です。
while(my $c=<sock>){
print $c "HTTP/1.1 200 OK/n"
print $c "content-type: image/png;/n/n";
print $c $imgbin;
close($c);
}
こんなレベルです。
ローカルだとこれが500Mbpsの速度で取得できますが、同じネットワーク内の他PCからだと20Mbps程度にしかなりません。
Windows上にApacheを入れて動かすと、てくださいPCでも500Mbps前後の速度が出るので、Perlの問題かなと思っています。
ファイヤーウォールも切りまた、Linuxサーバーでも試しましたが変わりませんでした。
何かこうした方がいい、というアイデアはありませんでしょうか。
宜しくお願いします。
|