Here are some intresting results when I ran this on a big sun box at work. If anyone can offer an explination as to why they came out this way I would be intrested to find out why.
jkruck:<greytea> % uname -a
SunOS greytea 5.8 Generic_108528-13 sun4u sparc SUNW,Ultra-Enterprise-
+10000
jkruck:<greytea> % perl tmp.pl
pad str: 401002404
pad int: 100202401
gbl str: 401000004
gbl int: 100200001
archname='sun4-solaris';
intsize='4';
longsize='4';
ptrsize='4';
doublesize='8';
byteorder='4321';
d_longlong='define';
longlongsize='8';
d_longdbl='define';
longdblsize='16';
ivtype='UNKNOWN';
ivsize='UNKNOWN';
nvtype='UNKNOWN';
nvsize='UNKNOWN';
lseeksize='UNKNOWN';
alignbytes='8';
jkruck:<greytea> %
also a new ppc based AIX box just for kicks
jkruck:<snow> % uname -a
AIX snow 1 5 0000BC3A4C00
jkruck:<snow> % perl tmp.pl
pad str: 401002404
pad int: 20100202401
gbl str: 401000004
gbl int: 20100200001
archname='aix';
intsize='4';
longsize='4';
ptrsize='4';
doublesize='8';
byteorder='4321';
d_longlong='define';
longlongsize='8';
d_longdbl='define';
longdblsize='8';
ivtype='long';
ivsize='4';
nvtype='double';
nvsize='8';
lseeksize='8';
alignbytes='8';
jkruck:<snow> %
Thanks
Josh