Selam,
nitrium# uname -a
FreeBSD nitrium 5.3-RELEASE FreeBSD 5.3-RELEASE #0: Fri Nov 5 04:19:18 UTC
2004 [EMAIL PROTECTED]:/usr/obj/usr/src/sys/GENERIC i386
nitrium# cat a.pl
#!/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');
nitrium# perl a.pl
192.168.51.120:192.168.51.255 17
192.168.51.120:192.168.51.255 17
192.168.51.120:192.168.51.255 17
192.168.51.118:192.168.51.255 17
^C
nitrium#
Bende Sorunsuz calisti. Acaba problem Net::PcapUtils ile ilgili mi ? Kaç
versiyonu kullaniyorsunuz?
"strace perl a.pl" komutunu calistirip - oncelikle sistemde strace olmali -
nerede hata aldiginizi gorebilirsiniz....
iyi calismalar.
On Thursday 28 April 2005 18:40, 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');
> ***************************************************************************
>***
--
**************************
* Halil Demirezen *
* Geliştirici Takım Üyesi*
* [EMAIL PROTECTED] *
**************************
---------------------------------------------------------------------
Cikmak icin, e-mail: [EMAIL PROTECTED]
Liste arsivi: http://lists.enderunix.org
Turkiye'nin ilk FreeBSD kitabi: http://www.acikakademi.com/freebsd.php
