Help for this page

Select Code to Download


  1. or download this
    use Win32::Console;

my $wc = Win32::Console->new(STD_INPUT_HANDLE);
...

    last if $char eq "\n";
}
  2. or download this
    Read: '#' = 23
Read: ' ' = 20
Read (undef)
...
Read: 'g' = 67
Read: '?' = 0D
Read: '?' = 0A