Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight

Re: Looking for backslashed characters

by thatguy (Parson)
on Oct 11, 2001 at 20:46 UTC ( #118265=note: print w/replies, xml ) Need Help??

in reply to Looking for backslashed characters

String::Escape seems to do what you ask.

print printable( "\tNow is the time\nfor all good folks\n" ); \tNow is the time\nfor all good folks\n

tested code:

#!/usr/bin/perl -w use String::Escape qw( printable ) ; open(FILE," text.txt"); while(<FILE>){ print printable($_); } close(FILE);


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://118265]
[ambrus]: choroba: heh heh... I have such a doc bug report somewhere. fixed by now.
[Corion]: Once upon a time I had automatic tests for checking the synopsis, but I stopped doing that because the setup was too fragile on CPAN testers for extracting code from the SYNOPSIS.
[Corion]: Maybe I should move the extraction of the code from the SYNOPSIS section into the author tests, or something like that...
[choroba]: Corion Sounds reasonable
[Corion]: choroba: Yeah - I basically have the same for regenerating README and README.mkdown already, except that I do that in Makefile.PL, but I guess one or the other thing should somehow work ;)
[ambrus]: was this bug: https://rt.cpan. org/Public/Bug/ Display.html?id= 59814

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (8)
As of 2017-02-27 12:12 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (383 votes). Check out past polls.