Help for this page

Select Code to Download


  1. or download this
    # evaluate something in a clean lexical environment
    sub _doeval { no strict;  eval shift }
    
  2. or download this
    For 10 elements:
    runloop unable to compile ' my @res = zip(   @a,  @b ) ': 
    ...
    code: sub { for (1 .. 1) { local $_; package main;  my @res = zip(   @
    +a,  @b ) ;} }
     at c:\test\junk9.pl line 29