Perlにて サーバーのIPアドレスを取得

Perlにて IPアドレスを取得したく調べたところ、
IO::Interfaceという便利なものを見つけました。
http://d.hatena.ne.jp/naoya/20080110/1199944996

ですが、標準モジュールでなく、PPMを探しても見つからず。

自分でビルドしてみましたが、Windows XP環境のためか、ビルドエラー。
勉強不足で解決方法がわからなかったのです。
そこで、愚直に Ipconfig コマンドを活用。
環境に依存しますので、汎用性のないプログラムですが、
目的を達成できました。

ポイント
ipconfig コマンドの結果を 取得
‘‘(バッククォータ)で囲むと、外部コマンドを実行できる。そのまま変数に代入できる。
@ipdata01= `ipconfig`;

結果から 必要な部分のみ抽出
substr やlength 、index などテキスト加工 関数を活用

ソース
#########################################################
#ipconfig Run & GET
my @ipdata01= `ipconfig`;

# all length
my $alllength= length $ipdata01[7] ;
#”:” length
my $target = ‘:’;
my $coronlength= 2 + index $ipdata01[7] , $target ;

my $getlength = $alllength – $coronlength;

my $ipaddress01= substr $ipdata01[7] , $coronlength, $getlength-1;

#########################################################

泥臭い方法でも実現できる、Perl。

参考、ppmのzipアーカイブ
http://aspn.activestate.com/ASPN/Downloads/ActivePerl/PPM/Zips

この記事を書いた人

ものくろ(Webコーチ)

フリーランスのブロガー・Web&Blogコーチ。個人・法人様を問わず、情報発信をコンサルティングとサポートしています。親指シフトのorzレイアウト開発者でもあり、日本語入力のエキスパート。
活動実績はこちら

ブログは月間65万PVを記録(2016年1月)したことも。200回を超えるワークショップ開催・のべ1,000名のブログサポートに携わっています。WordPressが得意です。WordPressコミュニティのイベントにも参加しております。お会いした時はよろしくお願いします。

東京 秋葉原に拠点と住民票がありますが、大阪や名古屋を中心に、日本を移動しながら仕事をしつつ暮らしています。

この記事が気に入ったら
いいね!しよう

最新の情報をお届けします

Web・Blogコーチのご依頼はこちら

Web・ブログのコンサルティング・ご相談のご依頼を受け付けております。

  • Webを活用して本気でビジネス・人生を切り開きたい方
  • Webのテクニカルな改善でお悩みの方
  • アイディアはあるのに、記事の文章にするのがうまくいかない方
  • 親指シフトを本気で習得したい方

そんな多様なお悩み、そして、さらに隠れていて見えないお悩みも見つけます。

ダイレクトにアドバイス。そして、ご自身の問題解決力を手にしていただく時間を。このブログ2400記事をアウトプットした経験に基づく良質なノウハウ・スキルを手に入れてください。時間の大切さを感じてるあなたへオススメです。

ものくろキャンプ Web・Blogコーチ セッション

お申し込みはこちらのお問い合わせフォームからお願いします。

お申し込みはこちらのお問い合わせフォームからお願いします。

ものくろキャンプ イベント案内

ものくろキャンプの開催スケジュールはこちら