Help for this page

Select Code to Download


  1. or download this
    use warnings;
use strict;
...
# "strace -s256 -fe trace=execve" (abbreviated by me) shows:
# execve("/bin/sh", ["sh", "-c", "perl ... --  '\"normal \r\"'"], ...
# execve("/bin/sh", ["sh", "-c", "perl ... --  \"normal \\r\""], ...
  2. or download this
    use IPC::System::Simple qw/capturex/;
print capturex($^X, qw/ -wMstrict -MData::Dump -e dd@ARGV -- /,
    "\r", "\\r");
# => prints ("\r", "\\r")