Help for this page

Select Code to Download


  1. or download this
     my @data       = shift;
 my $loop_count = 0;
...
  $data[$loop_count] =~ m{s/\s*$//}xms;#line 213
  $loop_count++;
 }
  2. or download this
    foreach $element (@array) {
  do_stuff_to($element);
}
  3. or download this
    for $index (0..$#array) { # $#array is the last index of @array
 do_stuff_to($array[$index]);
 do_stuff_to($other_array[$index]);
};