Selam;
process_pkt fonksiyonuna parametre gönderebilir misiniz?(toplam 3 tane olacak, fonksiyonla ilgili)
>Net::PcapUtils::loop(\&process_pkt(1,2,3), FILTER => 'ip');
gibi
Net::PcapUtils modulü yüklü olmadiği için kesin bir cevap veremeyeceğim.
Perl'de derleme, çalisma aninda olur. perl tarafindan kodun yorumlanmasi diyebiliriz.
Sevgiler & Saygilar
volkan kaya wrote:
Selam arkadaşlar FreeBSD de perl ile alttaki kodu derlediğimde Segmantation fault (Core Dumped ) hatası veriyor. yardımcı olursanız çok sevinirim Sistem Free BSD 5.3 iyi çalışmlar. *********************************************************** #!/usr/bin/perl -w
use strict; use Net::PcapUtils; use NetPacket::Ethernet qw(:strip); use NetPacket::IP;
sub process_pkt { my ($user, $hdr, $pkt) = @_;
my $ip_obj = NetPacket::IP->decode(eth_strip($pkt)); print("$ip_obj->{src_ip}:$ip_obj->{dest_ip} $ip_obj->{proto}\n"); }
Net::PcapUtils::loop(\&process_pkt, FILTER => 'ip'); ******************************************************************************
--------------------------------------------------------------------- Cikmak icin, e-mail: [EMAIL PROTECTED] Liste arsivi: http://lists.enderunix.org Turkiye'nin ilk FreeBSD kitabi: http://www.acikakademi.com/freebsd.php

