in reply to Re: Perl Gotchas. (if( condition) { bug })
in thread Perl Gotchas.

just for the record, the above program was reformatted with perl -nle 'printf "%-30s # $.\n", $_'.

For the record I formatted my code with pico, the middle mouse button, the arrow keys and plenty of the delete key. I feel slightly inadequate now... ;-)

--tidiness is the memory loss of environmental mnemonics

Replies are listed 'Best First'.
Re: Re: Re: Perl Gotchas. (if( condition) { bug })
by chromatic (Archbishop) on Nov 20, 2003 at 18:57 UTC

    cat -n is where it's at.

[reply]
[d/l]
      Frustrating if you want to copy and then run the code though.

      I tried tac -n to undo it but it didn't work... :-)

      --tidiness is the memory loss of environmental mnemonics

[reply]
[d/l]
[select]
        Huh? Just run cat -n and copy the results that are printed in your terminal or redirect to a temp file: cat -n foo.pl > foo.pl.numbered

        Don't change the file itself. But for the record, i stopped using line numbers when i stopped programming in BASIC. If i need to provide line numbers as an example, i just comment the relevant lines ... not the whole darned script. ;)

        UPDATE:
        I see now ... you mean to remove the line numbers after the fact - as in i copy your code above and try to run it without having to manually remove the line numbers. How about: 
        perl -pe"s/^\s+\d+\t//" foo.numbered > foo.pl

        [download]
        Don'cha just love Perl. :)

        jeffa

        L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
[reply]
[d/l]
      Didn't even know that one. Been using nl myself.

      Makeshifts last the longest.

[reply]

In Section Seekers of Perl Wisdom