Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
             | INTEGER
             | VARIABLE
             { return $::VARIABLE{$item{VARIABLE}} }
  2. or download this
      print_instruction  : /print/i expression
                     {
...
69
(4..9)
God damn, 4
  3. or download this
    $VAR1 = bless( {
                 '_AUTOTREE' => undef,
...
                                                    'prods' => [
                                                                 bless
+( {
                                                                      
+    'dircount' => 0,