in reply to Re^3: Need SYS_sendmsg and SYS_recvmsg values from an AIX box
in thread Need SYS_sendmsg and SYS_recvmsg values from an AIX box

This is great Laurent_R.

sys/socket.ph: eval 'sub sendmsg () { &nsendmsg;}' unless + defined(&sendmsg); sys/socket.ph: eval 'sub recvmsg () { &nrecvmsg;}' unless + defined(&recvmsg);

I was hoping that the glob wildcard */*.ph would pick up the relevant bits, but did not find the numeric values for nsendmsg and nrecvmsg. The following 3 liners pick up syscall.ph from /tmp/phfiles (hoping you still have this).

require '/tmp/phfiles/sys/syscall.ph'; print "SYS_sendmsg: ", SYS_sendmsg(), "\n"; print "SYS_recvmsg: ", SYS_recvmsg(), "\n";

I wished I had provided the 3 liners requiring sys/syscall.ph from /tmp/phfiles.

Thank you, Mario

Replies are listed 'Best First'.
Re^5: Need SYS_sendmsg and SYS_recvmsg values from an AIX box
by Laurent_R (Canon) on Aug 20, 2015 at 15:44 UTC
    Sorry Mario,

    it doesn't work:

    $perl -e 'require "/tmp/phfiles/sys/syscall.ph"; > print "SYS_sendmsg: ", SYS_sendmsg(), "\n"; > print "SYS_recvmsg: ", SYS_recvmsg(), "\n"; > ' Can't locate /tmp/phfiles/sys/syscall.ph in @INC (@INC contains: /opt/ +freeware/lib/perl5/5.10.1/ppc-aix-thread-multi /opt/freeware/lib/perl +5/5.10.1 /opt/freeware/lib/perl5/site_perl/5.10.1/ppc-aix-thread-mult +i /opt/freeware/lib/perl5/site_perl/5.10.1 .) at -e line 1. $ls /tmp/phfiles/sys/syscall.ph ls: cannot access /tmp/phfiles/sys/syscall.ph: A file or directory in +the path name does not exist.
    So, it cannot find syscall.ph, although the *.ph files are still there and the sys subdirectory exists and contains a lot of *.ph files, but not syscall.ph.

      I feel bad for all the trouble. All of this has made me reconsider on not using syscall. Instead will reserve a pool of socket handles for the new wait/notify features.

      Thank you, Mario