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

use Path::Class;
use autodie;
use Text::CSV;

#-----VARIABLES-----
my @OUTPUT;
my $sp = " ";
my $seq_num = 0;
my ($prev_amt_due, $payment_rec) = 0;
my ($return_1, $return_2, $return_3, $return_4);
my ($mail_to_1, $mail_to_2, $mail_to_3, $mail_to_4);
my ($service_1, $service_2, $service_3, $service_4);
my ($due_date, $bill_date, $amt_due, $t_amt_due, $past_amt, $cur_amt, 
+$phone); 
my ($cur_temp, $prev_temp, $ly_temp);
my ($cur_days, $prev_days, $ly_days);
my ($cur_usage, $prev_usage, $ly_usage);


#-----MAIN-----
my $dir = dir("C:/perl"); #Set the working directory
my $file = $dir->file("c2_sample_file.txt"); #Set the working file
open my $fh, '<:encoding(UTF-8)', $file; #Open the input file

local $/ = "\014"; #Set Input Record Separator to line break

#Loop through reading on record at a time

while (<$fh>) {
        chomp;  #Removes the control character
        my @LINES = split(/\n/, $_, -1); #Split on line break creating
+ array
        my @RECORDS = formatC2(@LINES);
        
        $OUTPUT[$seq_num] = [@RECORDS];    
}
close $fh;

#Currently for checking data conversion accuracy
for my $i ( 1 .. $#OUTPUT ) {
        for my $j ( 0 .. $#{ $OUTPUT[$i] } ) {
                print "elt $i $j is $OUTPUT[$i][$j]\n";
        sleep 1;
    }
}



#-----SUBROUTINES-----
sub ltrim { my $s = shift; $s =~ s/^\s+//;       return $s };
sub rtrim { my $s = shift; $s =~ s/\s+$//;       return $s };
sub  trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };

sub writeCSV {}

sub formatC2 {
    $seq_num += 1; #Increment for seq_num
    my @RECORD = @_; #Dereference the array
    my $needs_bre = 1; #Default to True for each record
    my $is_budget = 0; #Default to False for each record 
                
    #Misc + Account Number
    $RECORD[0] = trim($RECORD[0]); #Trim line 1 -> L1
    $RECORD[2] = trim($RECORD[2]); #Trim line 3 -> L3
    $RECORD[5] = trim($RECORD[5]); #Trim line 6 -> Account Number
    
    #Return Address Block
    $return_1 = trim(substr $RECORD[7], 0, 38);
    $return_2 = trim(substr $RECORD[8], 0, 38);
    $return_3 = trim(substr $RECORD[9], 0, 38);
    $return_4 = trim(substr $RECORD[10], 0, 38);
        
    #Service Address Block
    $service_1 = trim(substr $RECORD[23], 0, 36); 
    $service_2 = trim(substr $RECORD[24], 0, 36); 
    $service_3 = trim(substr $RECORD[25], 0, 36); 
    $service_4 = trim(substr $RECORD[26], 0, 36); 
        
    #-------------------------------------------------------------
    #Conditions used to protect against short lines due to no data
    #--------------------------------------------------------------
        
    #Mail To Address Block
    if (length($RECORD[7])>38)  {$mail_to_1 = trim(substr $RECORD[7], 
+38,  length($RECORD[7])-38); }
    if (length($RECORD[8])>38)  {$mail_to_2 = trim(substr $RECORD[8], 
+38,  length($RECORD[8])-38); }
    if (length($RECORD[9])>38)  {$mail_to_3 = trim(substr $RECORD[9], 
+38,  length($RECORD[9])-38); }
    if (length($RECORD[10])>38) {$mail_to_4 = trim(substr $RECORD[10],
+ 38, length($RECORD[10])-38); } 
        
    #Bill and Due Date
    if (length($RECORD[23])>59) { $due_date = trim(substr $RECORD[23],
+ 58, 10); } 
    if (length($RECORD[24])>59) { $bill_date = trim(substr $RECORD[24]
+, 58, 10); } 
        
    #Amount Due
    if (length($RECORD[25])>59) { $amt_due = trim(substr $RECORD[25], 
+58, 10); } 
            
    #Total Amount Due
    if (length($RECORD[19])>56) { $t_amt_due = trim(substr $RECORD[19]
+, 55, 15); } 
        
    #Phone Number
    if (length($RECORD[55]) > 21) { $phone = trim(substr $RECORD[55], 
+21, 14); }
        
    #Temperature - Current, Previous, Last Year
    if (length($RECORD[55]) > 49) { $cur_temp = trim(substr $RECORD[55
+], 49, 5); }
    if (length($RECORD[56]) > 49) { $prev_temp = trim(substr $RECORD[5
+6], 49, 5); }
    if (length($RECORD[57]) > 49) { $ly_temp = trim(substr $RECORD[57]
+, 49, 5); }
        
    #Days - Current, Previous, Last Year
    if (length($RECORD[55]) > 56) { $cur_days = trim(substr $RECORD[55
+], 56, 2); } 
    if (length($RECORD[56]) > 56) { $prev_days = trim(substr $RECORD[5
+6], 56, 2); } 
    if (length($RECORD[57]) > 56) { $ly_days = trim(substr $RECORD[57]
+, 56, 2); } 
        
    #Usage - Current, Previous, Last Year
    if (length($RECORD[55]) > 64) { $cur_usage = trim(substr $RECORD[5
+5], 64, 6); } 
    if (length($RECORD[56]) > 64) { $prev_usage = trim(substr $RECORD[
+56], 64, 6); } 
    if (length($RECORD[57]) > 64) { $ly_usage = trim(substr $RECORD[57
+], 64, 6); }
        
    #Detail Lines
    my $det_line = 29; #Set to first detail line
        
    while ($det_line <= 54) {
            local $_ = $RECORD[$det_line];
            
        my $chkr = "This bill will be automatically drafted from your 
+bank account.";
        if(trim($_) eq $chkr) { $needs_bre = 0; } #No BRE if auto draf
+t
                
        #If pattern match is true set $past_amt to "X"
        if (m/\s+.+\sbudget\s/) { 
            $past_amt = "X";
             $is_budget = 1;
                                                  
                 #Change message if both pattern and needs_bre conditi
+ons are met
                 if ($needs_bre == 0) {
                     my $t_budg_amt = substr($RECORD[$det_line], 39, 1
+5); #Extract budget amount for new message
                                 
                     $RECORD[$det_line-3] = "    Your budget amount of
+ $t_budg_amt will be automatically drafted";
                     $RECORD[$det_line-2] = "    from your bank accoun
+t";
                     $RECORD[$det_line-1] = "";
                     $RECORD[$det_line] = "";
                     $det_line +=1; next;
                 }
            }
             if (length($_) > 34){$chkr = substr($_, 34, 1);}
             my $chkr2 = substr($_, 0, 32);
                 
            #Use Regex to check for pattern
            if ($chkr eq ".") { 
                #Pad with additional spaces
                 $RECORD[$det_line] = $sp x 4 .substr($_, 1, 4).$sp x 
+5 .substr($_, 7, 5).$sp x 8 .substr($_, 14, 5).$sp x 7 .             
+     substr($_, 22, 1).$sp x 4 .substr($_, 26, 10).$sp x 9 .substr($_
+, 36,10).$sp.substr($_, 47, 10).$sp x 2 .
                  substr($_, 57, 11);
                  $det_line +=1; next;
            }
            elsif (m/^\sMeter\s#.+\.\d\d$/) { 
                #Pad with additional spaces
                 $RECORD[$det_line] = $sp x 4 .substr($_, 1, 18).$sp x
+ 53 .substr($_, 47, 10).substr($_, 57, 11);
                 $det_line +=1; next;
            }
            elsif ($chkr2 =~ /^\s*$/){
                  if (m/^\s+Current\sCharges\s+\d+\.\d+$/) { $cur_amt 
+= trim(substr $RECORD[$det_line], 56, 12); }
                 if (m/^\s+Previous\sAmount\sDue\s+\d+\.\d+$/){
                         $prev_amt_due = trim(substr $RECORD[$det_line
+], 56,12);        
                         $prev_amt_due =~ s/,//g;
                 }
                 if (m/^\s+Payment\sReceived\s/){
                         $payment_rec = trim(substr $RECORD[$det_line]
+, 56,12);
                         $payment_rec =~ s/,//g;
                 }                 
                 $RECORD[$det_line] = $sp x 26 .$RECORD[$det_line];
            }
            else {
                $RECORD[$det_line] = $sp x 4 .ltrim(substr($_, 0, 56).
+$sp x 26 .substr($_, 57, 14));
            }
            
            if ($det_line == 54){
                 my $result = $prev_amt_due - $payment_rec; #See if la
+st payment covered amt due
                if ($result > 0 and $is_budget == 0) { $past_amt = spr
+intf("%.2f", $result); }    
            }
                 
            $det_line += 1;
    }
        
        
        
    #Create Return Array
    $det_line = 29;
    my @TEMP = sprintf "%05d", $seq_num; #Pad the seq_num
    push @TEMP, sprintf("%05d", $seq_num)."1".$needs_bre."1"; #Create 
+Barcode field
    push @TEMP, $RECORD[0], $RECORD[2], $RECORD[5];
    push @TEMP, $return_1, $return_2, $return_3, $return_4;
    push @TEMP, $mail_to_1, $mail_to_2, $mail_to_3, $mail_to_4;
    push @TEMP, $service_1, $service_2, $service_3, $service_4;
    push @TEMP, $due_date, $bill_date, $amt_due, $t_amt_due, $phone;
    push @TEMP, $cur_temp, $prev_temp, $ly_temp;
    push @TEMP, $cur_days, $prev_days, $ly_days;
    push @TEMP, $cur_usage, $prev_usage, $ly_usage;
    push @TEMP, $cur_amt, $past_amt;
    while ($det_line <= 54) {
        push @TEMP, $RECORD[$det_line];
        $det_line += 1;
    }
        
        
        
    
    @TEMP #Pass back array
}
[download]