#!/usr/bin/perl
use strict;
use warnings;

3 == @ARGV or die "USAGE: perl $0 filein fileout shopID\n";

my ($file_in, $file_out, $shopID) = @ARGV; # file_in == file3, file_out == fout.csv shopID == 2345

open my $in, '<', $file_in or die "Unable to open $file_in: $!";
open my $out, '>', $file_out or die "Unable to open $file_out: $!";

chomp(my @hdrs = split /,/, <$in>);

my @cols = split /\n/, <<EndCols;
Cust Code
Inv Num
MobileNumber
Inv Date
PosId
PosUserID
ShopID
Prodcode
ProdDiscription
ProdDept
ProdGroup1
ProdGroup2
Qty
Net Amt
EndCols

print $out "DeviceID,PosTxnID,MobileNumber,Timestamp,PosID,PosUserID,ShopID,Prodcode,ProdDescription,ProdDept,ProdGroup1,ProdGroup2,Qty,Value\n";

my %tmp;

while (<$in>) {
	next unless /^\S+\s-\s#\s/ .. /^,/;
	chomp;
	if (/^,/) {
		%tmp = ();	
	}
	elsif (/^(ZB\d+)\s-\s#\s([^,]+)/) {
		$tmp{Prodcode} = $1;
		$tmp{ProdDiscription} = $2;
		$tmp{ShopID} = $shopID;	
	}
	else {
		@tmp{@hdrs} = split /,/;
		$tmp{'Inv Date'} = join("/", reverse split '/', $tmp{'Inv Date'});
		$tmp{'Inv Date'} .= ' 00:00';
		print $out join(",", map $_ // '', @tmp{@cols}), "\n";	
	}
}
close $in or die $!;
close $out or die $!

##</code><code>##

DeviceID,PosTxnID,MobileNumber,Timestamp,PosID,PosUserID,ShopID,Prodcode,ProdDescription,ProdDept,ProdGroup1,ProdGroup2,Qty,Value
VINT01,112681,,2018/01/23 00:00,,,2345,ZB101,Acme Widget Large 20 inch,,,,1,23.5
RR01,112683,,2018/01/23 00:00,,,2345,ZB101,Acme Widget Large 20 inch,,,,2,47
VINT01,112681,,2018/01/23 00:00,,,2345,ZB1201,Acme Widget Small 5 inch,,,,2,100
PIP01,112670,,2018/01/23 00:00,,,2345,ZB2101,Acme Widget Large 15 inch,,,,1,12.5
VINT01,112681,,2018/01/23 00:00,,,2345,ZB2101,Acme Widget Large 15 inch,,,,1,12.5
VCR01,112674,,2018/01/23 00:00,,,2345,ZB2401,Acme Widget Medium 10 inch,,,,2,65
VINT01,112681,,2018/01/23 00:00,,,2345,ZB2501,Acme Widget Small 6 inch,,,,1,37.5
CAPB01,112672,,2018/01/23 00:00,,,2345,ZB3501,Acme Widget GOLD,,,,1,29
SANML,112673,,2018/01/23 00:00,,,2345,ZB3501,Acme Widget GOLD,,,,1,29
RS01,112657,,2018/01/23 00:00,,,2345,ZB3701,Acme Widget Large 24 inch,,,,1,21
CAPB01,112672,,2018/01/23 00:00,,,2345,ZB3701,Acme Widget Large 24 inch,,,,1,21
BPS01,112679,,2018/01/23 00:00,,,2345,ZB3701,Acme Widget Large 24 inch,,,,2,42
VINT01,112681,,2018/01/23 00:00,,,2345,ZB3701,Acme Widget Large 24 inch,,,,1,21
MC01,112682,,2018/01/23 00:00,,,2345,ZB3701,Acme Widget Large 24 inch,,,,1,21
PIP01,112670,,2018/01/23 00:00,,,2345,ZB3801,Regular Acme Widget Large 20 inch,,,,1,21
RE01,112663,,2018/01/23 00:00,,,2345,ZB4001,High Type Acme Widget,,,,1,30
CAPB01,112672,,2018/01/23 00:00,,,2345,ZB4001,High Type Acme Widget,,,,1,30
APP01,112685,,2018/01/23 00:00,,,2345,ZB4001,High Type Acme Widget,,,,1,30
RR01,112683,,2018/01/23 00:00,,,2345,ZB401,Nugget Type Acme Widget,,,,2,48
TB01,112665,,2018/01/23 00:00,,,2345,ZB4901,Acme Widget Large 17 inch,,,,1,38.5
DD01,112659,,2018/01/23 00:00,,,2345,ZB501,Acme Widget hexangle,,,,3,99
VINT01,112681,,2018/01/23 00:00,,,2345,ZB501,Acme Widget hexangle,,,,1,33
RS01,112657,,2018/01/23 00:00,,,2345,ZB701,Acme Widget Circular 20 inch,,,,1,33
PIP01,112670,,2018/01/23 00:00,,,2345,ZB701,Acme Widget Circular 20 inch,,,,1,33
BPS01,112679,,2018/01/23 00:00,,,2345,ZB701,Acme Widget Circular 20 inch,,,,1,33
RE01,112663,,2018/01/23 00:00,,,2345,ZB901,Acme Widget Square 3 inch,,,,1,32
TB01,112665,,2018/01/23 00:00,,,2345,ZB901,Acme Widget Square 3 inch,,,,1,32