.bin/get_ip_from_ifconfig.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use Data::Dumper;
   4
   5 my $interface;
   6 my %IPs;
   7
   8 foreach ( qx{ (LC_ALL=C /sbin/ifconfig -a 2>&1) } ) {
   9         $interface = $1 if /^(\S+?):?\s/;
  10         next unless defined $interface;
  11         $IPs{$interface}->{STATE}=uc($1) if /\b(up|down)\b/i;
  12         $IPs{$interface}->{IP}=$1 if /inet\D+(\d+\.\d+\.\d+\.\d+)/i;
  13 }
  14 print Dumper(\%IPs);