Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
  }

sub error { die s/\G/ SYNTAX ERROR->/r, "\n" }
  2. or download this
    had  .not.foo(1,bar(2)+1,3).and.baz(4,5)
want ! foo[2][bar[1]][0] && baz[4][3]
got  ((( !(foo[(3)-1][(((bar[(2)-1]) + (1)))-1][(1)-1]))) && (baz[(5)-
+1][(4)-1]))