うまい棒の断片

■ [perl]IPアドレスを取得 09:35

use IO::Interface::Simple;

my $ip = IO::Interface::Simple->new('eth0')->address;
print $ip, "\n";