Как узнать IP-адрес заданного интерфейса в наиболее переносимом и надежном виде. Работает на многих платформах.

x=IO::Interface::Simple; perl -e 'use '$x';' &>/dev/null || cpan -i "$x"; perl -e 'use '$x'; my $ip='$x'->new($ARGV[0]); print $ip->address,$/;'

Эта команда используется для получения IP-адреса заданного сетевого интерфейса в переносимой и надежной форме. Она проверяет наличие Perl-модуля IO::Interface::Simple и, если его нет, устанавливает его через CPAN. Затем она использует этот модуль для получения IP-адреса заданного интерфейса, который указывается в аргументе .