Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print $prompt;
chomp( my $file2 = <STDIN> );
say for map sprintf( q{%#04x - >%s<}, ord, $_ ), split m{}, $file2;
  2. or download this
    $ ./spw822114
Plz enter file: xyz.c
...
0x2e - >.<
0x63 - >c<
$