Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^4: How to replace Tab with spaces not altering postion

by Aristotle (Chancellor)
on Oct 14, 2002 at 15:33 UTC ( #205118=note: print w/replies, xml ) Need Help??


in reply to Re: Re^2: How to replace Tab with spaces not altering postion
in thread How to replace Tab with spaces not altering postion

$_ = "You\tare\tmaking\ttoo\tmany\tassumptions...";

Makeshifts last the longest.

Replies are listed 'Best First'.
Re: Re^4: How to replace Tab with spaces not altering postion
by petral (Curate) on Oct 15, 2002 at 15:01 UTC
    Right, I was hurrying to put it up and leave.   Forgot to point out it only works for normal input files where each line ends in a newline.

    Actually, your algorithm solves the problem without abandoning regexen.   Unless we're missing something, Larry was thinking along the lines of bart's logic above, that you have to know the new length of the line up to this point.   But you are just depending on the text in front of the present tab(s) to be aligned either with the beginning of the line or the previous tab stop, so there is no need to consider the entire preceding line segment:
    $ perl -we'$_="\t\tYou\tare\tmaking\t\ttoo\tmany\tassumptions...\t\t"; s/(^|[^\t]+)(\t+)/$1." " x (length($2) * 8 - (length($1) & 7))/ge; print' You are making too many assump +tions... $ ( s/(.*?)(\t+)/...
    is simpler but presumably less efficient (which was your initial concern).   However, note that it will work correctly on a multiline string:
    $ perl -we'$_="\t\tYou\tare\tmaking\t\ttoo\n\tmany\tassumptions...\t"; s/(.*?)(\t+)/$1." "x(length($2)*8-(length($1)&7))/ge; print' You are making too many assumptions... $


      p

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://205118]
help
Chatterbox?
[atcroft]: .oO(It is a well-known, well-tried module that has probably encountered more corner-cases and oddities than the average mortal programmer can imagine when trying to roll their own...)
[atcroft]: .oO(*Blah* It, I meant....)
[james28909]: omg
[james28909]: im just finding out that july and august have 31 days?
[atcroft]: stevieb: Apparently it was contagious....
[atcroft]: james28909: Make both hands into fists, place them together (with thumbs concealed), and every knuckle is a month (starting with Jan.) has 31 days, every dip (between knuckles) does not....

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (3)
As of 2017-04-29 04:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (531 votes). Check out past polls.