Help for this page

Select Code to Download


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

...
                        }
                      ]
        };
  2. or download this
    ...
school => { 0 => { school_type => undef }, 1 => { ... } },
...
  3. or download this
    s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)