UNIX Perl – Get local IP with ifconfig

Replace ETH0 with the interface you need..

 

my $IP = `ifconfig eth0| awk ‘/dr:/{gsub(/.*:/,””,\$2);print\$2}’`;

$IP =~ s/\s+$//;