Help for this page

Select Code to Download


  1. or download this
    my $call=0;
 
...
}
 
print generator generator;
  2. or download this
    /usr/bin/perl -w /tmp/tst.pl 
Call Nr 1
...
CODE(0x90fa080)
ERROR !!!
CODE(0x90fa080)
  3. or download this
    Call Nr 1
Call Nr 2
CODE(0x9604880)
CODE(0x9623210)
  4. or download this
    sub gen_arr {
  my $inner_arr=shift;
...
gen_arr gen_arr;

#prints ARRAY(0xa179880)ARRAY(0xa179760)