Help for this page

Select Code to Download


  1. or download this
    sub foo{
      my $x if 0;
    ...
      print "BAR: ", $x--, "\n";
    }
    foo, bar for (1..10);
    
  2. or download this
    sub foo{
      print "FOO: ", $x++, "\n";
    ...
      print "BAR: ", $x--, "\n";
    }
    foo, bar for (1..10);
    
  3. or download this
    sub STATIC_VARIABLE{ 0 }
    
    ...
      STATIC_VARIABLE && my $x;
      print "FOO: ", $x++, "\n";
    }