// UNTESTED
for(int a = 1; a<10; a++)
{
printf("%d\n",a);
}
####
// UNTESTED
// UPDATED: de-obfuscated
{
int a = 1;
while(a<10)
{
printf("%d\n",a);
a++;
}
}
##
##
# UNTESTED
for (;EXPR;) BLOCK # leave first and third EXPRs blank to be
# equivalent to while (EXPR) BLOCK
# UNTESTED
for (my @list = LIST, VAR = shift @list; # iterate manually through
@list; # LIST in "for" to be
VAR = shift @list) BLOCK # somewhat like
# foreach VAR (LIST) BLOCK
# without the usual aliasing
##
##
perl -MO=Deparse -e "for (;<>;){print}"
while (defined($_ = )) {
print $_;
}
-e syntax OK