Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use warnings;
...
    Dump($scale);

}

Select or download this


0 str: <22.5> / num: <22.5> product 315 should be 315
...
    MG_TYPE = PERL_MAGIC_uvar(U)
    MG_LEN = 24
    MG_PTR = 0x1f24b40 "\260(=\252\254\177\0\0\20==\252\254\177\0\0\0j
+\372\1\0\0\0\0"