5Re: Perl Gotchas. (if( condition) { bug })

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)

Comment on 5Re: Perl Gotchas. (if( condition) { bug }) Download Code

Replies are listed 'Best First'.
6Re: Perl Gotchas. (if( condition) { bug }) by EvdB (Deacon) on Nov 20, 2003 at 20:56 UTC
`tac` does the same thing as `cat`, just backwards - so to undo `cat -n` ... Obviously the line numbers... Oh, this is ridiculous, I'm going for a beer. Where's a weekend when you need one? :-) --`tidiness is the memory loss of environmental mnemonics`	[reply] [d/l] [select]