Re^2: REGEX Non-Destructive Flag

[quester]

in reply to Re: REGEX Non-Destructive Flag
in thread REGEX Non-Destructive Flag

Data::Dump::Streamer can do that:

use Modern::Perl;
use Data::Dump::Streamer;

my $x= "cr-\15, lf-\12, tab-\11, bs-\10";
say Dump $x;

prints

$VAR1 = "cr-\r, lf-\n, tab-\t, bs-\b";

or as a one-liner,

perl -MDDS -wE 'say Dump "cr-\15, lf-\12, tab-\11, bs-\10";'

[mmartin]

Hey quester,

Thanks for the reply... Yea that did it! Thanks alot.


Thanks Again,
Matt