Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    print("time delta = ", $etime-$stime, "\n");
    
    Dump(\@a, 1) if $ARGV[0];
    
  2. or download this
    $ ./perl -Ilib speed_test.pl 0
    time delta = 0.623134136199951
    ...
        MAX = 9
        ARYLEN = 0x83ca280
        FLAGS = (REAL)
    
  3. or download this
    $ ./perl -Ilib speed_test.pl 0
    time delta = 0.463121175765991
    ...
        MAX = 9
        ARYLEN = 0x0
        FLAGS = (REAL)
    
  4. or download this
    From c045b931b2afb3b2af6641a9943f65f295ee7da1 Mon Sep 17 00:00:00 2001
    From: Eric Brine <ikegami@adaelis.com>
    ...
    
    --
    1.6.5
    
  5. or download this
            dTARGET;
            SETi( AvFILL(MUTABLE_AV(av)) + CopARYBASE_get(PL_curcop) );
    
  6. or download this
            SETs(sv_2mortal(newSViv(
                AvFILL(MUTABLE_AV(av)) + CopARYBASE_get(PL_curcop)
            )));
    
  7. or download this
    panic: pad_sv po at lib/re.pm line 99.