|
Server : Apache/2.2.22 (Unix) mod_ssl/2.2.22 OpenSSL/1.0.0-fips mod_auth_passthrough/2.1 mod_bwlimited/1.4 System : Linux server.jackjohnson.com 2.6.32-279.5.2.el6.x86_64 #1 SMP Fri Aug 24 01:07:11 UTC 2012 x86_64 User : jackjohn ( 502) PHP Version : 5.3.17 Disable Function : NONE Directory : /installd/perl588installer/perl-5.8.8/h2pl/ |
Upload File : |
#!/usr/bin/perl
require 'sizeof.ph';
$LIB = '/usr/local/lib/perl';
foreach $include (@ARGV) {
printf STDERR "including %s\n", $include;
do $include;
warn "sourcing $include: $@\n" if ($@);
if (!open (INCLUDE,"$LIB/$include")) {
warn "can't open $LIB/$include: $!\n";
next;
}
while (<INCLUDE>) {
chop;
if (/^\s*eval\s+'sub\s+(\w+)\s.*[^{]$/ || /^\s*sub\s+(\w+)\s.*[^{]$/) {
$var = $1;
$val = eval "&$var;";
if ($@) {
warn "$@: $_";
print <<EOT;
warn "\$$var isn't correctly set" if defined \$_main{'$var'};
EOT
next;
}
( $nval = sprintf ("%x",$val ) ) =~ tr/a-z/A-Z/;
printf "\$%s = 0x%s;\n", $var, $nval;
}
}
}