Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: REGEX Non-Destructive Flag

by mmartin (Monk)
on Jan 10, 2012 at 21:08 UTC ( #947245=note: print w/replies, xml ) Need Help??

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 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: Copyright (c) 1986-2009 by Cisco Systems, Inc. Compiled Mon 12-Jan-09 13:53

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:\n Copyright (c) 1986-2009 by Cisco Systems, Inc.\n Compiled Mon 12-Jan-09 13:53\n

Any thoughts would be great.


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;


    $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";'
      Hey quester,

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

      Thanks Again,

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://947245]
marioroy just logged in to say that MCE::Hobo has passed testing and therefore will continue to run like threads but have managed capabilities similar to Parallel:: ForkManager. It allows multiple managed instances to run simultaneously. Zero limitations.
marioroy it's taken a long time to make this possible.
marioroy will post demonstrations after release

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2017-07-28 19:45 GMT
Find Nodes?
    Voting Booth?
    I came, I saw, I ...

    Results (433 votes). Check out past polls.