Help for this page

Select Code to Download


  1. or download this
    use strict;
use vars qw(@array $exist);
...
print ($exist->("pig",\@array),"\n");
  2. or download this
    /****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/