># цикл с постусловием
>{ print 'Hello'; $i++ } while($i < 10); $ perl -e '$i=0; { print "Hello"; $i++ } while($i < 10); print "\n"; '
syntax error at -e line 1, near ");"
Execution of -e aborted due to compilation errors.
~$ perl -e '$i=0; do { print "Hello"; $i++ } while($i < 10); print "\n"; '
HelloHelloHelloHelloHelloHelloHelloHelloHelloHello
И соответственно:
>{ print 'Hello'; $i++ } if ($i < 10); # бам! нельзя.
~$ perl -e '$i=0; { print "Hello"; $i++ } if($i < 10); print "\n"; '
syntax error at -e line 1, near ");"
Execution of -e aborted due to compilation errors.
~$ perl -e '$i=0; do { print "Hello"; $i++ } if($i < 10); print "\n"; '
Hello