On Fri, 22 Feb 2002, Ilya Anfimov wrote: > > Так я и советовал исходники на perl почитать, потому что они компактные. > > Наличие этого кода в каких-то исходниках на perl вообще говоря > неочевидно, между тем наличие его в ifconfig -- вполне очевидно.
Тем не менее, найти нужный код в библиотеке для Perl специально заточенной под решение данной задачи, несколько проще, чем выкапывать его из системной утилиты NAME IO::Interface - Perl extension for access to network card configuration information SYNOPSIS use IO::Socket; use IO::Interface qw(:flags); my $s = IO::Socket::INET->new(Proto => 'udp'); my @interfaces = $s->if_list; for my $f (@interfaces) { print "interface = $if\n"; my $flags = $s->if_flags($if); print "addr = ",$s->if_addr($if),"\n", "broadcast = ",$s->if_broadcast($if),"\n", "netmask = ",$s->if_netmask($if),"\n", "dstaddr = ",$s->if_dstaddr($if),"\n", "hwaddr = ",$s->if_hwaddr($if),"\n"; ... > > > btw, А никто не знает -- почему это в potato у man ключика -K > > > нет? А как это исправить? > > > > А почему у меня есть? > > Не знаю. А точно есть? Стормозил. Я подумал, что ты имеешь в виду -k, который apropos. По контексту он весьма подходил. А что делает -К, а то в Solaris его тоже нету, а никаких юн... Ах, да один редхат нашел. Да, таким ключиком только самоубивца пользоваться может. В Debian гораздо лучший мех есть - dwww, на который натравливается потом, какой-нибудь mnogosearch или htdig.