Help for this page

Select Code to Download


  1. or download this
    sub lolize{
        my($size, $arrayref)=@_;
    ...
        }
        return [@returnarray];
    }
    
  2. or download this
    push @returnarray, [splice(@$arrayref,$count, ($count+$size-1<=@$array
    +ref)? $count+size-1 :@$arrayref )];