Anonymous user
Host introspection: Difference between revisions
→{{header|Perl}}: Switch from 'intsize' to 'uvsize', because 'byteorder' reports the byte order in a UV, and I want the size to match the byte order.
(J: clean up sleepy mistake) |
(→{{header|Perl}}: Switch from 'intsize' to 'uvsize', because 'byteorder' reports the byte order in a UV, and I want the size to match the byte order.) |
||
Line 471:
Most basic example:
<lang perl>use Config;
print "
Example output:
<pre>
</pre>
Line 480:
<lang perl>use 5.010;
use Config;
my ($size, $order, $end) = @Config{qw(
given ($order) {
when (join '', sort split '') { $end = 'little' }
Line 486:
default { $end = 'mixed' }
}
say "
Example outputs:
<pre>
</pre>
<pre>
</pre>
<pre>
</pre>
| |||