Public ScratchpadDownload, Select Code To D/L

Help for this page

Select Code to Download


  1. or download this
    open(my $pb, $ARGV[0]);
binmode $pb;
...
say length $int_type; # reports 1 as expected.
chomp $int_type;
my $read_len = { C => 1, S => 2, I => 4}->{$int_type}; # Doesn't match
+ any keys.