Help for this page

Select Code to Download


  1. or download this
                 my @posns = split m{}, $tests[ $idx ]-[ $subidx ];
             $results[ $idx ]-[ $subidx ] ++
  2. or download this
                 my @posns = split m{}, $tests[ $idx ]->[ $subidx ];
             $results[ $idx ]->[ $subidx ] ++
  3. or download this
    open(INFILE1, $FILENAME1);
  4. or download this
    open my $input1FH, q{<}, $FILENAME1
   or die qq{open: < $FILENAME1: $!\n};