repr() for Perl?

[skip]

Sorry to ask a Perl question here, but... Does Perl have something like
Python's repr() function? I want to print out a string and have CR print as
\r, LF as \n, etc. I looked in the Perl/Python phrasebook:

http://wiki.python.org/moin/PerlPhrasebook

but saw nothing along those lines.

Thx,

Skip

 

[Mirco Wahab]

Hi skip

Sorry to ask a Perl question here, but... Does Perl have something like
Python's repr() function? I want to print out a string and have CR print as
\r, LF as \n, etc. I looked in the Perl/Python phrasebook:

Have a look at this:

# -------- cmp_rep.pl ----------- #
#!/usr/bin/perl -w
use String::Escape qw(printable);

# - - - - the perl way - - - - -
$st = "str\ting\n";
print "In Perl:\n", printable($st);

# - - - - the python way - - - -
use Inline Python => <<'PYEND';
st="str\ting\n";
print "\nIn Python:\n", repr(st)
PYEND
# ------------------------------- #

Should give "almost" the same results

Regards

Mirco

 

[skip]

Mirco> Have a look at this:

...

Thanks, I'm getting set up to try it just for the exercise. I went with
John Lee's Data:umper suggestion simply because I already had it installed
and have neither String::Escape nor Inline:ython installed.

Skip