perl recvmmsg syscall

hithim has asked for the wisdom of the Perl Monks concerning the following question:

Can anyone tell me how i can use recvmmsg in perl , maybe some advices how to make it work through syscall() function. I try to use it like this:

    #!/usr/bin/perl  
    use strict;  
    use Socket;  
    use Data::Dumper;  
    require("syscall.ph");
    
    my $srv;
    socket($srv, PF_INET, SOCK_DGRAM, getprotobyname('udp'));
    bind ($srv, sockaddr_in('777', INADDR_ANY)) or die $!;
    
    my $msg = "\0" x 1500;
    syscall(&SYS_recvmmsg, $srv, $msg, 1500,0,0) == 0 or die $!;
    print Dumper $msg;
[download]

But get an error : Bad file descriptor at ./syscall_test2 line 12.

Comment on perl recvmmsg syscall Download Code

Replies are listed 'Best First'.
Re: perl recvmmsg syscall by Anonymous Monk on Apr 24, 2013 at 09:30 UTC
?Try Socket::MsgHdr - sendmsg, recvmsg and ancillary data operations	[reply]
Re: perl recvmmsg syscall by Anonymous Monk on Apr 24, 2013 at 09:32 UTC
also, syscalls shows fileno(STDOUT) so try fileno($srv)	[reply]
Re^2: perl recvmmsg syscall by hithim (Initiate) on Apr 24, 2013 at 11:59 UTC
Change to `syscall(&SYS_recvmmsg, fileno($srv), $msg, 1500,0,0);` Now it block untill i send some packets and then i get "Illegal seek" error.	[reply] [d/l]
Re^3: perl recvmmsg syscall by Anonymous Monk on Apr 24, 2013 at 12:16 UTC
What does this return? `use Data::Dump qw/ dd pp /; $!=0; my $ret = syscall(&SYS_recvmmsg, fileno($srv), $msg, 1500,0,0); dd [ int($!)." $!", $ret ];` [download]	[reply] [d/l]
Re^4: perl recvmmsg syscall by Anonymous Monk on Apr 24, 2013 at 12:18 UTC
Re^4: perl recvmmsg syscall by hithim (Initiate) on Apr 24, 2013 at 12:21 UTC
Re^5: perl recvmmsg syscall by Anonymous Monk on Apr 24, 2013 at 13:40 UTC