Help for this page

Select Code to Download


  1. or download this
    perl -e"print qq(\xe4)"
  2. or download this
    perl -MDOS::Try -e"print qq(\xe4)"
  3. or download this
    use strict;
use warnings;
use $result;
$result = `perl -MDOS::Try -e"print qq(\xe4)"`;
print $result;
  4. or download this
    package DOS::Try;
use strict;
...
close STDOUT;
open(STDOUT, ">&:encoding(Cp437)", $oldout) or die "Can't dup \$oldout
+: $!";
1