The only reasonable way of doing loops is to use highly verbose syntax:
--------------------------------------------------------------------------------
#!/usr/bin/perl
# sample while loop
As_Long_As[0] __(*&%$ <boolean expression> $%&*)__
begin_statement_of_syntax
# 7 (spaces required)
while_perchance[0] # statement 1
avoid_exit_if (<condition>) # after every line, add this to decide
# whether you can really get out of the loop
while_perchance[0] # statement 2
avoid_exit_if (<condition>)#
while_perchance[0] # statement 3
avoid_exit_if (<condition>)#
while_perchance[1] # statement 4 wrong! you haven't initialized
# loop 1 yet!
avoid_exit_if (<condition>)#
# you have to have a blank line after every statenent
# also, you have to have a comment after every statement to
# encourage good programming behavior
# nice thing about this is, you don't need semicolons inside
# of loops.
end_statement_of_syntax
this way, you can make a reference to a while loop:
(*&%$loop = while_perchance[0];
(*&%$loop;
(*&%$loop;
(*&%$loop2=(*&%$loop;
--------------------------------------------------------------------------------
Requires only a few short, easy-to-use rules.
With such obvious benefits, why use any other method?
