Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

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 foo.pl, 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:??;


Comment on Re: Re: The One True Style of indentation:
Download Code
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' foo.pl
    (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

    -Blake

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

      –hsm

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

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (12)
As of 2015-07-30 15:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (272 votes), past polls