Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...

__END__
  2. or download this
    $ perl 1140691-2.pl
hostname : localhost
IP       : 10.5.50.27
Netmask  : 255.255.255.255
$
  3. or download this
    use Sys::Hostname;
use Socket;

my $hostname = hostname;
my $ip       = inet_ntoa( scalar gethostbyname( $hostname ) );