Miscellany

#!/usr/bin/perl -w

use strict;
use DBI;
use DBD::mysql;
use POSIX;

my $date = strftime( "%Y%m%d", localtime time );
my $newinv = "newinv$date.txt";
my $usedinv = "usedinv$date.txt";

        open(NEWDUMP, $newinv) or die "New Car Inventory list not found.";

        our @newcar=<NEWDUMP>;

        print $newcar[0];

        my @subinv;
        foreach my $line (@newcar) {
                push @subinv,
                        join(",", grep {$_ ne ""} unpack("A4 A A15 A A15 A A17 A A8 A A6 A A6 A A2 A A9 A A9", $line)). "\n";
        }

        print @subinv;

2008,CHEVROLET TRUCK,C1500,1GCEC14X48Z124922,8Z124922, 6, 19350.00, 18508.58
2008,CHEVROLET TRUCK,C1500,1GCEC19X18Z126278,8Z126278, 25322.00, 22948.08