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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->new;

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

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