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("A4AA20AA36AA54AA63AA70AA77AA80AA90A", $line));
        }

        print $subinv[0];
        print "\n";

YEAR MAKE            CARLINE         SERIAL#           STOCK NO MILES  TRANSM #C LST PRICE INVOICE$
---- --------------- --------------- ----------------- -------- ------ ------ -- --------- ---------

2006 CHEVROLET TRUCK CHEVY VAN       1GBFG15TX61111905 61111905                   64683.98  27327.13