Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Re: The One True Style of indentation:

by japhy (Canon)
on Apr 14, 2002 at 21:00 UTC ( #159007=note: print w/replies, xml ) Need Help??

in reply to Re: The One True Style of indentation:
in thread The One True Style of indentation:

Yes! Another believer! Oh, and here's a utility script of mine, detab:
#!/usr/bin/perl -pi # can't use die() in BEGIN -- it looks funny :( BEGIN { $sp = shift or warn("usage: detab SP files...\n") and exit } s/^(\t+)/" " x ($sp * length $1)/eg;
To cleanse your nasty tabbed files, simply run detab 2, and your leading tabs are replaced with 2 spaces per tab. The way japhy intended.

Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Replies are listed 'Best First'.
Re3: The One True Style of indentation:
by blakem (Monsignor) on Apr 15, 2002 at 03:15 UTC
    A slightly different way to do that:
    perl -pi -e 's/\G\t/ /g'
    (Adapted from a "replace-leading-zeros-with-spaces" oneliner I seem to remember)

    Update: looks like the original came from merlyn after dominus offered a suggestion similar to japhy's


      Ummm-- I think that was a 'dictum', not a suggestion...


      "Never try to teach a pig to sing…it wastes your time and it annoys the pig."

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://159007]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (5)
As of 2017-11-20 04:47 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (284 votes). Check out past polls.