getip.pl

#!/usr/bin/perl

#my $in = <STDIN>;
my $in = `ip addr`;
my @eth = split(/$ARGV[0]/, $in);
my @delnext = split(/: /, $eth[1]);
my @inet = split(/inet /, $delnext[1]);
my @addr = split(/\//, $inet[1]);

print $addr[0];