mirror of
https://github.com/troydhanson/tpl.git
synced 2024-12-26 07:31:09 +08:00
24 lines
504 B
Perl
Executable File
24 lines
504 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Config;
|
|
|
|
#print "$_: ", ($Config{$_} or ""), "\n" for keys %Config;
|
|
#exit;
|
|
|
|
my @types = qw(char short int long longlong double);
|
|
for (@types) {
|
|
my $bytes = $Config{"${_}size"};
|
|
my $bits = $bytes * 8;
|
|
printf "size of %-10s: %5d bytes (%d bits)\n", $_, $bytes, $bits;;
|
|
}
|
|
|
|
print qq/
|
|
These sizes reflect the platform and compiler options with
|
|
which Perl was built on this system. The sizes may change
|
|
if different compiler options are used.
|
|
/;
|
|
|