Perl

Get Local Network Adapter Addresses

Demonstrates Socket.GetAdaptersAddresses, which populates a JsonObject with information about local network adapters, including IPv4 addresses, IPv6 addresses, and MAC addresses.

Tip: Code to parse the returned JSON can be generated with Chilkat's online tool at https://tools.chilkat.io/jsonParse.

Background. This provides a portable way to enumerate the host's network interfaces and their addresses.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$socket = chilkat::CkSocket->new();

#  Populate a JsonObject with information about the local network adapters, including IPv4 addresses,
#  IPv6 addresses, and MAC addresses.
$json = chilkat::CkJsonObject->new();
$success = $socket->GetAdaptersAddresses($json);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

$json->put_EmitCompact(0);
$jsonStr = $json->emit();
print $jsonStr . "\r\n";
#  JSON parsing code for this result can be generated at Chilkat's online tool:
#  https://tools.chilkat.io/jsonParse