Help for this page

Select Code to Download


  1. or download this
    my $x = 0;
print $x, $x++;  # Print 10??
  2. or download this
    #!/usr/bin/perl

...


exit();
  3. or download this
    my $x = 0;
print $x,$x, $x++;  # Print 110??
  4. or download this
    my $x = 0;
print $x,$x++, $x++;  # Print 210??
  5. or download this
    #!/usr/bin/perl

use strict;
...

exit();
  6. or download this
    $x=0;
&myprint($x, $x++);
...
sub myprint{
    print join ",",@_;
}