[Omaha.pm] for loop quickie

Jay Hannah jhannah at omnihotels.com
Mon May 22 14:02:28 PDT 2006


before:

   for ($j = 0; $j < @row; $j++) {
      $row[$j] =~ s/[^ -~]//g;
      $row[$j] =~ s/\|/:/g;
   }

after:

   for (@row) {
      s/[^ -~]//g;
      s/\|/:/g;
   }

j


More information about the Omaha-pm mailing list