"be consistent" | |
PerlMonks |
Re: formatting questionby starbolin (Hermit) |
on Jun 24, 2008 at 17:18 UTC ( [id://693785]=note: print w/replies, xml ) | Need Help?? |
I haven't tested whether this matches your logic, but it should be close, anyway:
UPDATE: I forgot $#ARGV returns one less than scalar @ARGV so I fixed that. Some would probably fault me for using a switch statement where each path calls the same code but I like the resulting look. Cleaner might be.
UPDATE: removed some vestigial semicolons. s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s |-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,, $|=1,select$,,$,,$,,1e-1;print;redo}
In Section
Seekers of Perl Wisdom
|
|