Net::UPnPを使ってポートマッピング(ポートフォワーディング)する - よしだ’s diaryどこかで見つけたもののほぼコピー。 本当はRubyでやりたかったけど、やり方が解らなかったからPerlで。 外側からTCPの22040ポートにアクセスが来たら、192.168.0.40の22ポートにフォワードする。 こんな感じのを各サーバに入れておいて、サーバ起動時とかにネットワークの後に自動起動させれば、DHCPとかでも設定いらずで外から直接SSHに入れる！ と思ったら、我が家のルータはポート変換に対応していなかった！ まぁIPアドレスの変換には対応してたから、いずれ使う事もあるかも…？ #!/usr/bin/perl use Net::UPnP::ControlPoint; use Net::UPnP::GW::Gateway; my $obj = Net::UPnP::ControlPoint->new(); @dev_list = (); while (@dev_list <= 0
