Help for this page

Select Code to Download


  1. or download this
    print FILEHANDLE LIST
  2. or download this
    print { $cars{$fields[4]} } $fields[0], ',', $fields[4], "\n"
    if /engineer/ && !/,-,/;
  3. or download this
    if (($fields[1] eq '1'  ||
     $fields[1] eq '0') &&
...
    print { $cars{$model} } $number, ',', $model, "\n"
        if /engineer/ && !/,-,/;
}