Help for this page

Select Code to Download


  1. or download this
          # code to match the stress regex
      $eval .= <<"      EOT";
            next unless /\$stress[$i]/o;
      EOT
  2. or download this
        if (defined $stress[$i]) {
      # code to match the stress regex
      $eval .= <<"      EOT";
            next unless /\$stress[$i]/o;
      EOT
    }
  3. or download this
      for (my $i=0; $i<=$#entry; ++$i) {
    # ...

...
      EOT
    }
  }