Ich nutze seit längerem einen Code zum Anzeigen der IP

[dev0]

Eine mögliche Variante, die die erste IP zurückliefert:

Code Auswählen Erweitern

sub getip {return `hostname -I |awk '{print \$1}'`}

[moonsorrox]

Super Danke das funktioniert jetzt so 

[justme1968]

eine halbwegs platform unabhängige variante wäre so etwas:

Code Auswählen Erweitern

use IO::Socket::INET;
sub
plex_getLocalIP()
{
  my $socket = IO::Socket::INET->new(
        Proto       => 'udp',
        PeerAddr    => '8.8.8.8:53',    # google dns
        #PeerAddr    => '198.41.0.4:53', # a.root-servers.net
    );   
  my $ip = $socket->sockhost;
  close( $socket );

  return $ip if( $ip );

  #$ip = inet_ntoa( scalar gethostbyname( hostname() || 'localhost' ) );
  #return $ip if( $ip );

  return '<unknown>';
}


statt der google ip kann man jede andere erreichbare verwenden.

der aaskommentierte teil am ende ist leider nicht platform und perl version unabhängig.

[dev0]

Bei stackoverflow habe ich gerade neben deinem Beispiel noch folgende Variante gefunden:

Code Auswählen Erweitern


use Net::Address::IP::Local;
# Get the local system's IP address that is "en route" to "the internet":
my $address = Net::Address::IP::Local->public;


[justme1968]

das ist aber ein extra packet und scheint intern etwa das gleiche zu machen wie meine variante.

gruss
  andre