Perlとソケットで書く最も無骨なプロキシサーバ

　Perl と生ソケットを用いて、HTTP プロキシサーバを書いてみました。接続のハンドリングを行うのみで、chunked なコンテンツなどには一切対応していません。そんな無骨なプロキシサーバのソースコードメモ。ソケットを 2 本使って、listen/connect しているだけです。ここから改造すればいいのかなぁ。

#!/usr/bin/perl
$|++;
use strict;
use Socket;

use constant SERVER_PORT => 8080;

# 待ち受け用ソケット生成
socket SOCKET, PF_INET, SOCK_STREAM, getprotobyname ('tcp')
    or die;
binmode SOCKET;
# ポートにbind
bind SOCKET, sockaddr_in (SERVER_PORT, INADDR_ANY)
   or die;
# ソケットをlisten
listen SOCKET, SOMAXCONN
    or die;

while (1) {
    # 待ち受け
    accept CLIENT, SOCKET
        or die;
    binmode CLIENT;

    ### Data: Client -> Proxy Server
    print "-------- REQUEST --------¥n";
    my ($buf, $request);
    do {
        recv CLIENT, $buf, 1024, 0
            or last;
        print $buf;
        $request .= $buf;
    } while (1024 == length $buf);
    print "¥n";

    # Parsing/Modifing
    $request =‾ s!^(GET|POST) http¥://([^/]+)(/¥S*) (HTTP/¥d+¥.¥d+)!$1 $3 $4!;
    my ($host, $port) = $2 =‾ m!(.+)(?:¥:(¥d+))?!;
    $port ||= 80;

    # サーバ問い合わせ用ソケット生成
    socket SOCKET2, PF_INET, SOCK_STREAM, getprotobyname ('tcp')
        or die;
    binmode SOCKET2;
    # サーバに接続
    connect SOCKET2, sockaddr_in ($port, inet_aton ($host))
        or die;

    ### Data: Proxy Server -> Target Server
    send SOCKET2, $request, 0
        or die;

    ### Data: Target Server -> Proxy Server
    print "-------- RESPONCE --------¥n";
    my ($responce);
    do {
        recv SOCKET2, $buf, 1024, 0
            or last;
        print length $buf, "¥n";
        $responce .= $buf;
    } while (1024 == length $buf);
    print "¥n";

    # 後始末
    close SOCKET2;

    ### Data: Proxy Server -> Client
    send CLIENT, $responce, 0
        or die;

    # 後始末
    close CLIENT;
}

# 後始末
close SOCKET;

関連記事/トラックバック (全 1 件中、最新 5 件まで表示しています)

この記事にトラックバックを送るには？

コメントを投稿する

返信先
コメント	お気軽にコメントをお寄せくださいませ・コメントを投稿するにはブラウザの JavaScript を有効にしてください・入力された通りに改行位置で改行されます・HTML タグは使用できませんが、文中の URL は自動的にリンクされます・"<" は "<"、">" は ">" と書いてください　・MovableType関係の質問でテンプレートタグをそのまま書かれると見えません
名前	(匿名可/必須/公開)
メール	(匿名可/必須/非公開)
投稿確認	(必須) コメントスパム防止のため投稿前にを入力してから投稿してください。お手数ですがご協力のほど宜しくお願いいたします。

ヘッダメニュー

Perlとソケットで書く最も無骨なプロキシサーバ

この記事を読んだ人はこんな記事も読んでいます

この記事のアーカイブ

関連記事/トラックバック (全 1 件中、最新 5 件まで表示しています)

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー

ヘッダメニュー

Perlとソケットで書く最も無骨なプロキシサーバ

この記事を読んだ人はこんな記事も読んでいます

その他の関連する記事

この記事のアーカイブ

関連記事/トラックバック (全 1 件中、最新 5 件まで表示しています)

この記事にトラックバックを送るには？

コメントを投稿する

リファレンス

ブロガープロフィール

ツール

関連する商品

モバイル

ナビゲーション

記事検索

勝手におすすめ

最近のコメント/関連記事

最近の人気記事

フッタメニュー