view release on metacpan or  search on metacpan

lib/NetInfoExtractor/Interface.pm  view on Meta::CPAN

}

sub parse_ipv4_address {
	my $ifconfig_output = shift;
	my ($ipv4) = $ifconfig_output =~ m/inet\saddr:((\d{1,3}\.){3}\d{1,3})/g;
	return $ipv4;
}

sub parse_ipv6_address {
	my $ifconfig_output = shift;
	my ($ipv6) = $ifconfig_output =~ m/inet6\saddr:\s(.*)\//g;
	return $ipv6;
}

sub read_mac_address_file {
	my $file = shift;
	open my $opened_file, "<", $file || die("Could not open file $file. $!.");
	my $line;
	while (<$opened_file>) {
		chomp $_;
		$line = $_;