Help for this page

Select Code to Download


  1. or download this
    $ perl -le 'for ( my $x=0; $x<3; print $x++ ) { }'
0
...
1
2
3
  2. or download this
    $ perl -MO=Deparse -e 'for ( my $x=0; $x<3; print $x++ ) { }'
for (my $x = 0; $x < 3; print $x++) { (); }
...
for (my $x = 0; $x < 3; ++$x) { (); }
$ perl -MO=Deparse -e 'for ( my $x=0; $x<3; $x++ ) { }'
for (my $x = 0; $x < 3; ++$x) { (); }