Help for this page

Select Code to Download


  1. or download this
    while(<FILE>) {
   flock(FILE, 2); 
   @line = split(/ /, $_); 
...
      $found++ 
   }
}
  2. or download this
         print OUTFILE "$var1\t$var2\t$var3\n";
  3. or download this
         print OUTFILE $ary[0] . "\t" . $ary[1] . "\t" . $ary[2] . "\n";
  4. or download this
    while(<FILE>) { 
   @line = split(/\t/, $_);
   $itemDB = $line[0]; 
...
      &Sub2();
   }
}