最近は、NATを利用したSOHOルータを使ってイントラネットを構築する事が一般的になってきました。 それらのSOHOルータの多くは、UPnP機能を有しています。 UPnPを利用すると、SOHOルータの情報を取得したり、設定を行ったりできます。 ここでは、PPPを使って接続しているSOHOルータの外部側ネットワークインターフェースに割り当てられているIPアドレスを取得する方法を説明したいと思います。 IPアドレス取得サンプル SOHOルータがPPPで取得した外部アドレス(一般的にはグローバルIPアドレス)を、UPnPを使ってイントラネット側(家庭側)から取得する方法です。 #!/usr/bin/perl use Net::UPnP::ControlPoint; $upnp = Net::UPnP::ControlPoint->new(); # UPnP deviceを検索 @devs = $