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

Hi Mario, this is the output of your first grep command: 
$ grep sendmsg */*.ph
sys/socket.ph:              eval 'sub sendmsg () { &nsendmsg;}' unless
+ defined(&sendmsg);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_in () {36;}' unless defined(
+&hkwd_sendmsg_in);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_out () {37;}' unless defined
+(&hkwd_sendmsg_out);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err1 () {289;}' unless defin
+ed(&hkwd_sendmsg_err1);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err2 () {290;}' unless defin
+ed(&hkwd_sendmsg_err2);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err3 () {291;}' unless defin
+ed(&hkwd_sendmsg_err3);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err4 () {292;}' unless defin
+ed(&hkwd_sendmsg_err4);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err5 () {293;}' unless defin
+ed(&hkwd_sendmsg_err5);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err6 () {294;}' unless defin
+ed(&hkwd_sendmsg_err6);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err7 () {295;}' unless defin
+ed(&hkwd_sendmsg_err7);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err8 () {296;}' unless defin
+ed(&hkwd_sendmsg_err8);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err9 () {297;}' unless defin
+ed(&hkwd_sendmsg_err9);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err10 () {298;}' unless defi
+ned(&hkwd_sendmsg_err10);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err11 () {299;}' unless defi
+ned(&hkwd_sendmsg_err11);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err12 () {300;}' unless defi
+ned(&hkwd_sendmsg_err12);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err13 () {301;}' unless defi
+ned(&hkwd_sendmsg_err13);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err14 () {302;}' unless defi
+ned(&hkwd_sendmsg_err14);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err15 () {303;}' unless defi
+ned(&hkwd_sendmsg_err15);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err16 () {304;}' unless defi
+ned(&hkwd_sendmsg_err16);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err17 () {305;}' unless defi
+ned(&hkwd_sendmsg_err17);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_err18 () {306;}' unless defi
+ned(&hkwd_sendmsg_err18);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err1 () {307;}' unless defi
+ned(&hkwd_nsendmsg_err1);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err2 () {308;}' unless defi
+ned(&hkwd_nsendmsg_err2);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err3 () {309;}' unless defi
+ned(&hkwd_nsendmsg_err3);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err4 () {310;}' unless defi
+ned(&hkwd_nsendmsg_err4);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err5 () {311;}' unless defi
+ned(&hkwd_nsendmsg_err5);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err6 () {312;}' unless defi
+ned(&hkwd_nsendmsg_err6);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err7 () {313;}' unless defi
+ned(&hkwd_nsendmsg_err7);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err8 () {314;}' unless defi
+ned(&hkwd_nsendmsg_err8);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err9 () {315;}' unless defi
+ned(&hkwd_nsendmsg_err9);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err10 () {316;}' unless def
+ined(&hkwd_nsendmsg_err10);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err11 () {317;}' unless def
+ined(&hkwd_nsendmsg_err11);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err12 () {318;}' unless def
+ined(&hkwd_nsendmsg_err12);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err13 () {319;}' unless def
+ined(&hkwd_nsendmsg_err13);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err14 () {320;}' unless def
+ined(&hkwd_nsendmsg_err14);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err15 () {321;}' unless def
+ined(&hkwd_nsendmsg_err15);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err16 () {322;}' unless def
+ined(&hkwd_nsendmsg_err16);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err17 () {323;}' unless def
+ined(&hkwd_nsendmsg_err17);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_err18 () {324;}' unless def
+ined(&hkwd_nsendmsg_err18);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_out1 () {357;}' unless defin
+ed(&hkwd_sendmsg_out1);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_out2 () {358;}' unless defin
+ed(&hkwd_sendmsg_out2);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_out3 () {359;}' unless defin
+ed(&hkwd_sendmsg_out3);
sys/trchkid.ph:    eval 'sub hkwd_sendmsg_out4 () {360;}' unless defin
+ed(&hkwd_sendmsg_out4);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_in () {361;}' unless define
+d(&hkwd_nsendmsg_in);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_out1 () {362;}' unless defi
+ned(&hkwd_nsendmsg_out1);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_out2 () {363;}' unless defi
+ned(&hkwd_nsendmsg_out2);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_out3 () {364;}' unless defi
+ned(&hkwd_nsendmsg_out3);
sys/trchkid.ph:    eval 'sub hkwd_nsendmsg_out4 () {365;}' unless defi
+ned(&hkwd_nsendmsg_out4);

[download]
And the second one: 
$grep recvmsg */*.ph
sys/socket.ph:              eval 'sub recvmsg () { &nrecvmsg;}' unless
+ defined(&recvmsg);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err () {23;}' unless defined
+(&hkwd_recvmsg_err);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_in () {24;}' unless defined(
+&hkwd_recvmsg_in);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_out () {25;}' unless defined
+(&hkwd_recvmsg_out);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err1 () {366;}' unless defin
+ed(&hkwd_recvmsg_err1);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err2 () {367;}' unless defin
+ed(&hkwd_recvmsg_err2);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err3 () {368;}' unless defin
+ed(&hkwd_recvmsg_err3);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err4 () {369;}' unless defin
+ed(&hkwd_recvmsg_err4);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err5 () {370;}' unless defin
+ed(&hkwd_recvmsg_err5);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err6 () {371;}' unless defin
+ed(&hkwd_recvmsg_err6);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err7 () {372;}' unless defin
+ed(&hkwd_recvmsg_err7);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err8 () {373;}' unless defin
+ed(&hkwd_recvmsg_err8);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err9 () {374;}' unless defin
+ed(&hkwd_recvmsg_err9);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err10 () {375;}' unless defi
+ned(&hkwd_recvmsg_err10);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err11 () {376;}' unless defi
+ned(&hkwd_recvmsg_err11);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err12 () {377;}' unless defi
+ned(&hkwd_recvmsg_err12);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err13 () {378;}' unless defi
+ned(&hkwd_recvmsg_err13);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err14 () {379;}' unless defi
+ned(&hkwd_recvmsg_err14);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err15 () {380;}' unless defi
+ned(&hkwd_recvmsg_err15);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err16 () {381;}' unless defi
+ned(&hkwd_recvmsg_err16);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err17 () {382;}' unless defi
+ned(&hkwd_recvmsg_err17);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err18 () {383;}' unless defi
+ned(&hkwd_recvmsg_err18);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err19 () {384;}' unless defi
+ned(&hkwd_recvmsg_err19);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err20 () {385;}' unless defi
+ned(&hkwd_recvmsg_err20);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err21 () {386;}' unless defi
+ned(&hkwd_recvmsg_err21);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err22 () {387;}' unless defi
+ned(&hkwd_recvmsg_err22);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_err23 () {388;}' unless defi
+ned(&hkwd_recvmsg_err23);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_out1 () {389;}' unless defin
+ed(&hkwd_recvmsg_out1);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_out2 () {390;}' unless defin
+ed(&hkwd_recvmsg_out2);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_out3 () {391;}' unless defin
+ed(&hkwd_recvmsg_out3);
sys/trchkid.ph:    eval 'sub hkwd_recvmsg_out4 () {392;}' unless defin
+ed(&hkwd_recvmsg_out4);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_in () {393;}' unless define
+d(&hkwd_nrecvmsg_in);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err1 () {394;}' unless defi
+ned(&hkwd_nrecvmsg_err1);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err2 () {395;}' unless defi
+ned(&hkwd_nrecvmsg_err2);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err3 () {396;}' unless defi
+ned(&hkwd_nrecvmsg_err3);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err4 () {397;}' unless defi
+ned(&hkwd_nrecvmsg_err4);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err5 () {398;}' unless defi
+ned(&hkwd_nrecvmsg_err5);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err6 () {399;}' unless defi
+ned(&hkwd_nrecvmsg_err6);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err7 () {400;}' unless defi
+ned(&hkwd_nrecvmsg_err7);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err8 () {401;}' unless defi
+ned(&hkwd_nrecvmsg_err8);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err9 () {402;}' unless defi
+ned(&hkwd_nrecvmsg_err9);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err10 () {403;}' unless def
+ined(&hkwd_nrecvmsg_err10);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err11 () {404;}' unless def
+ined(&hkwd_nrecvmsg_err11);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err12 () {405;}' unless def
+ined(&hkwd_nrecvmsg_err12);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err13 () {406;}' unless def
+ined(&hkwd_nrecvmsg_err13);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err14 () {407;}' unless def
+ined(&hkwd_nrecvmsg_err14);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err15 () {408;}' unless def
+ined(&hkwd_nrecvmsg_err15);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err16 () {409;}' unless def
+ined(&hkwd_nrecvmsg_err16);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err17 () {410;}' unless def
+ined(&hkwd_nrecvmsg_err17);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err18 () {411;}' unless def
+ined(&hkwd_nrecvmsg_err18);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err19 () {412;}' unless def
+ined(&hkwd_nrecvmsg_err19);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err20 () {413;}' unless def
+ined(&hkwd_nrecvmsg_err20);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err21 () {414;}' unless def
+ined(&hkwd_nrecvmsg_err21);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err22 () {415;}' unless def
+ined(&hkwd_nrecvmsg_err22);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err23 () {416;}' unless def
+ined(&hkwd_nrecvmsg_err23);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err24 () {417;}' unless def
+ined(&hkwd_nrecvmsg_err24);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err25 () {418;}' unless def
+ined(&hkwd_nrecvmsg_err25);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err26 () {419;}' unless def
+ined(&hkwd_nrecvmsg_err26);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err27 () {420;}' unless def
+ined(&hkwd_nrecvmsg_err27);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_err28 () {421;}' unless def
+ined(&hkwd_nrecvmsg_err28);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_out1 () {422;}' unless defi
+ned(&hkwd_nrecvmsg_out1);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_out2 () {423;}' unless defi
+ned(&hkwd_nrecvmsg_out2);
sys/trchkid.ph:    eval 'sub hkwd_nrecvmsg_out3 () {424;}' unless defi
+ned(&hkwd_nrecvmsg_out3);

[download]
I don't make sense on that, but I hope this helps you.

Cheers,

Laurent.

Replies are listed 'Best First'.
Re^4: Need SYS_sendmsg and SYS_recvmsg values from an AIX box
by marioroy (Prior) on Aug 20, 2015 at 14:06 UTC

    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);

    [download]

    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";

    [download]

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

    Thank you, Mario

[reply]
[d/l]
[select]
      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.

      [download]
      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.
[reply]
[d/l]
[select]

        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

[reply]

In Section Seekers of Perl Wisdom