ascii to Access

#!/usr/bin/perl

#this program will read from a data file and will parse
#and print the data to individual files

use IO::File;

#this is used to index into file handle array
#add one for each type (make sure there are no duplicates!)
#the order does not matter

@DataTypes = (
    "090",
    "030",
    "040",
    "050",
    "060"
);

@fileHandles = ();
%typeHash = ();

sub openFiles4Reading{
    for ($cnt = 0; $cnt < @DataTypes; $cnt++){
        $typeHash{$DataTypes[$cnt]} = $cnt;
        $fileHandles{$cnt} = new IO::File;
        $filename = ">tmp_$DataTypes[$cnt].dat";
        open($fileHandles{$cnt}, $filename) or die "Can't open file $filename for writing!\n";
    }
    print STDERR "files successfully open for reading\n";
}

sub closeFiles{
    print STDERR "closing files...\n";

    for ($cnt = 0; $cnt < @DataTypes; $cnt++){
        close($fileHandles{$cnt});
    }
}

&openFiles4Reading;

#process input file here:

#dat file is whatever your source input file is
open(FIN, "dat") || die "Can't open dat file!";
open(FOUT, ">datnotfound") || die "Can't open datnotfound file!";

while ($input = <FIN>){
    chomp($input);#remove trailing line feed
    $type = substr($input, 0, 3);
    $index = $typeHash{$type};
    $handle = $fileHandles{$index};
    if (!$handle){#dump anything unknown into a separate file
         print FOUT "$input\n";
         next;
    }
    @parsDat = ();#this clears the parse array
    if ($type eq "040"){
        $parsDat[0] = substr($input, 0, 3);  #type
        $parsDat[1] = substr($input, 3, 6);  #id
        $parsDat[2] = substr($input, 10, 9); #id
        $parsDat[3] = substr($input, 19, 17);#fname
        $parsDat[4] = substr($input, 36, 14);#mname
        $parsDat[5] = substr($input, 50, 25);#lname
        $parsDat[6] = substr($input, 75, 1); #code
        $parsDat[6] = substr($input, 76, 1); #code
        $parsDat[6] = substr($input, 77, 1); #code
        $parsDat[6] = substr($input, 78, 2); #code
        $parsDat[6] = substr($input, 79, 1); #code  
    }elsif ($type eq "050"){
        $parsDat[0] = substr($input, 0, 3);  #code
        $parsDat[1] = substr($input, 3, 6);  #id
        $parsDat[2] = substr($input, 10, 9); #id
        $parsDat[3] = substr($input, 19, 2); #info code
        $parsDat[4] = substr($input, 21, 3); #exp
        $parsDat[5] = substr($input, 24, 3); #emp
        $parsDat[6] = substr($input, 27, 54);#filler    
    }else{#just to grab anything else, but you shouldn't need an else here
         $parsDat[0] = $input;
    }

    #if you want to tab delimit the data use this:
    #join("\t", @parsDat);
    $output = join(",", @parsDat);
    print $handle "$output\n";
    
}

close(FIN);
close(FOUT);
    
&closeFiles;