Это моя жалкая попытка разкинуть результат по массивам, но до этого - "как до неба раком".Есть банальный скрипт
#!/usr/bin/perl
open(STDIN,"/usr/sbin/tcpdump |");
while(<STDIN>)
{
($a, $s, $d, $f, $g, $h) = split(';');
..... сюда всуну код на выполнение в базу ...........
print "$a, $s, $d, $f, $g, $h\n";
}
Результат выводит отлично любой, кроме
open(STDIN,"/usr/sbin/tcpdump src port 67 |");
Он мне просто "мило улыбнулся, и сказал что он работает" при это выводя
tcpdump: verbose output suppressed, use -v or -vv for full protocol decode
listening on eth0, link-type EN10MB (Ethernet), capture size 96 bytes
И мило улыбается дальше. При этом не реагируя вообще ни на что.
Меняю порт, все прекрасно показывает.
Пробывал tcpdump src port 67 | awk .............
Результат аналогичен 0.
Во все что касается 67 порта = 0.
Ребята.
Может кто нибуди подсказать - почему скрипт не воспроизводит результат?
Я пытаюсь вообще как либо прослушать ответ от DHCP-клиента с его IP, и запустить скрипт.
Зарание спасибо.
Вариант для распечатки
