Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl>perl -wMstrict -le
"print join '', map sprintf('%03o', $_), unpack 'C*', qq{\r\n};
"
015012
  2. or download this
    c:\@Work\Perl>perl -wMstrict -le
"my $x = qq{\r\n};
...
 print qq{'$x'};
"
'015012'