* fix entry order
[lab.git] / .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);