$PID/$$ capped at 32767?

reinaldo.gomes has asked for the wisdom of the Perl Monks concerning the following question:

I wrote a Perl script and I've been trying to print its own PID, which works fine when it's 32767 or lower. However, it is always shown as 32767 whenever the real PID is above this number. It seems like it's a size/signing limitation for the variable. In MySQL, that would be equivalent to SMALLINT being signed (-32768 to +32767) as opposed to being unsigned (0 to 65535).

Any ideas on how to solve this?

EDIT: Just to explain my stupidity: the problem was exactly what I said in my original post: MySQL INT column being signed instead of unsigned. The value I was seeing came from a select, not from a print. MySQL was limiting this value, not Perl.

Comment on $PID/$$ capped at 32767?

Replies are listed 'Best First'.
Re: $PID/$$ capped at 32767? by choroba (Cardinal) on Oct 30, 2017 at 23:07 UTC
What OS/$^O are you running? In mine (Linux), PID can never grow over 32767, it rotates back to 1 (300 in fact). ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l]
Re^2: $PID/$$ capped at 32767? by reinaldo.gomes (Beadle) on Oct 30, 2017 at 23:51 UTC
So, I just realized that I can lower the 'kernel.max_pid' value to 32768, which would solve my problem. However, just for the sake of completeness, I would like to know if there is any configuration that I can change on Perl to increase the max PID value capacity.	[reply]
Re^3: $PID/$$ capped at 32767? by syphilis (Archbishop) on Oct 31, 2017 at 01:04 UTC
I would like to know if there is any configuration that I can change on Perl to increase the max PID value capacity I don't have an answer to that question, but perhaps you'll get to see the larger values by calling POSIX::getpid instead of $$. (This would require, of course, that the POSIX module be loaded.) Or there might be some other module that would return the larger values. Cheers, Rob	[reply]
Re^2: $PID/$$ capped at 32767? by reinaldo.gomes (Beadle) on Oct 30, 2017 at 23:14 UTC
Perl Version is: revision 5 version 16 subversion 3 OS is: CentOS 7.3.1611 (Kernel 3.10.0-514.el7.x86_64) By issuing "top" command, I can see PIDs up to 62k+	[reply]
Re^3: $PID/$$ capped at 32767? by holli (Abbot) on Oct 30, 2017 at 23:27 UTC
Are you using a 32 or 64 bit perl? ( `perl -v` ) holli You can lead your users to water, but alas, you cannot drown them.	[reply] [d/l]
Re^4: $PID/$$ capped at 32767? by reinaldo.gomes (Beadle) on Oct 30, 2017 at 23:46 UTC
Re: $PID/$$ capped at 32767? by reinaldo.gomes (Beadle) on Oct 31, 2017 at 13:22 UTC
Just to explain my stupidity: the problem was exactly what I said in my original post: MySQL INT column being signed instead of unsigned. The value I was seeing came from a select, not from a print. MySQL was limiting this value, not Perl.	[reply]
Re^2: $PID/$$ capped at 32767? by RMGir (Prior) on Oct 31, 2017 at 14:16 UTC
That would do it :) Can you please edit the original post to indicate that? Mike	[reply]
Re: $PID/$$ capped at 32767? by choroba (Cardinal) on Oct 31, 2017 at 13:22 UTC
What happens when you try to change $$ to such a high value? `$$ = 64_000; print $$, "\n";` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]