ifconfig_like_linux

#!/usr/bin/perl
# Written by Claudio Ramirez <[email protected]>
# A small wrapper around Solaris ifconfig to get rid of the awful
# hexadecimal netmask (ffffff00 => 255.255.255.0)
#
# Modified to address change in filesystem

use strict;
use warnings;

my @output = `/sbin/ifconfig @ARGV`;
foreach my $output (@output) {
    if ($output =~ /\bnetmask\s+(\w\w\w\w\w\w\w\w)\b/) {
    my $pre_nm = $` . "netmask ";
    my $nm = $1;
    my $post_nm = $';
    $nm =~  /(\w\w)(\w\w)(\w\w)(\w\w)/;
    my $bit2 = $2;
    my $bit3 = $3;
    my $bit4 = $4;
    my $num2 = hex($bit2);
    my $num3 = hex($bit3);
    my $num4 = hex($bit4);
    $nm = "255.$num2.$num3.$num4";
    $output = $pre_nm . $nm . $post_nm;
    }
}
print @output;