perldoc -q find.+?my.+?ip
Found in /perl58/lib/pod/perlfaq9.pod
  How do I find out my hostname/domainname/IP address?
    The normal way to find your own hostname is to call the `hostname`
    program. While sometimes expedient, this has some problems, such a
+s not
    knowing whether you've got the canonical name or not. It's one of 
+those
    tradeoffs of convenience versus portability.

    The Sys::Hostname module (part of the standard perl distribution) 
+will
    give you the hostname after which you can find out the IP address
    (assuming you have working DNS) with a gethostbyname() call.

        use Socket;
        use Sys::Hostname;
        my $host = hostname();
        my $addr = inet_ntoa(scalar gethostbyname($host || 'localhost'
+));

    Probably the simplest way to learn your DNS domain name is to grok
+ it
    out of /etc/resolv.conf, at least under Unix. Of course, this assu
+mes
    several things about your resolv.conf configuration, including tha
+t it
    exists.

    (We still need a good DNS domain name-learning method for non-Unix
    systems.)





$$ perl
    use Socket;
    use Sys::Hostname;
    my $host = hostname();
    my $addr = inet_ntoa(scalar gethostbyname($host || 'localhost'));


    die "$host ][ $addr $/";
__END__
medina ][ 169.190.150.133

[download]

In reply to Re: •Re: Getting own ip-addresses! by Anonymous Monk
in thread Getting own ip-addresses on Win32 machines by esskar

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.