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月)。 これまでに250回を超えるワークショップ開催・のべ1,200名のブログサポートに携わる。

WordPressが得意 / 好きなもの(無刻印キーボード・十割蕎麦・湯葉)/ あまり好みでないもの(ブロッコリー・値切り)

開催している講座に参加する

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

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

あわせて読みたい

広告

Facebookを使うノウハウ公開中

農家・フリーランス・経営者向け SNS使いこなしセミナー (2018年1月版)の内容を全文公開中!

無料 メルマガ発行中

運営しているものくろキャンプの講座・イベント開催情報や、ちょっと役立つ情報をお届けしています。

ほぼ毎日発行しています。

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

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

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

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

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

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

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

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

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

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

広告