Beefy Boxes and Bandwidth Generously Provided by pair Networks
Come for the quick hacks, stay for the epiphanies.
 
PerlMonks  

Re: REGEX Non-Destructive Flag

by mmartin (Monk)
on Jan 10, 2012 at 21:08 UTC ( [id://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 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

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


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;

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

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


      Thanks Again,
      Matt

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://947245]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (2)
As of 2024-03-19 06:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found