Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
Keep It Simple, Stupid
 
PerlMonks  

Re: Wanted: humanly readable `script` output

by pc88mxer (Vicar)
on May 04, 2008 at 19:55 UTC ( #684469=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $text = "abcDE\x08\x08xyz\x08Z"; # \x08 is the backspace character
    
    ...
      substr($text, pos($text)-2, 2, '');
    }
    print $text, "\n"; # emits: abcxyZ
    
  2. or download this
    while ($text =~ m/(\x08+)/g) {
      substr($text, $pos-2*length($1), 2*length($1), '');
    }
    print $text, "\n";
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (5)
As of 2014-04-20 00:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls