in reply to REGEX Non-Destructive Flag

Hey Guys, thanks for the suggestions.

Is there a way to print out a string, and in the terminal have it show any special characters (i.e. \n, \t, \s, etc...)

For Example: I have a variable like this:

#This variable is equal to the routers description which is a single s
+tring that when printed prints into 3 separate lines
my $descr = split " STRING: " `snmpget -v1 -c public 10.1.1.1 sysDescr
+.0`

print "$descr";

____OUTPUT____
Cisco IOS Software, Catalyst 4500 L3 Switch Software (cat4500-ENTSERVI
+CESK9-M), Version 12.2(31)SGA9, RELEASE SOFTWARE (fc1)
Technical Support: http://www.cisco.com/techsupport
Copyright (c) 1986-2009 by Cisco Systems, Inc.
Compiled Mon 12-Jan-09 13:53

[download]

So is there a way to print out $sysDescr and have it actually print the special character symbols...? I want to see what meta-characters are actually in there.
Something like this: 
Cisco IOS Software, Catalyst 4500 L3 Switch Software (cat4500-ENTSERVI
+CESK9-M), Version 12.2(31)SGA9, RELEASE SOFTWARE (fc1)\n
Technical Support: http://www.cisco.com/techsupport\n
Copyright (c) 1986-2009 by Cisco Systems, Inc.\n
Compiled Mon 12-Jan-09 13:53\n

[download]


Any thoughts would be great.


Thanks,
Matt


Replies are listed 'Best First'.
Re^2: REGEX Non-Destructive Flag
by quester (Vicar) on Jan 11, 2012 at 06:09 UTC

    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;

    [download]

    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";'
[reply]
[d/l]
[select]
      Hey quester,

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


      Thanks Again,
      Matt

[reply]

In Section Seekers of Perl Wisdom