$VAR1 = {
'1' => {
'due_date' => '11/28/2007 15:54',
'balance' => '482.29',
'account' => 'ar161429'
},
'3' => {
'due_date' => '10/23/2007 15:54',
'balance' => '887.78',
'account' => 'ar106644'
},
'id' => {
'due_date' => 'balance_due',
'balance' => 'balance',
'account' => 'account_number'
},
'2' => {
'due_date' => '10/9/2007 15:54',
'balance' => '266.93',
'account' => 'ar182364'
}
};
####
$VAR1 = {
'21' => {
'account' => 'ar465032',
'cdate' => '1/2/2007 15:36',
'name' => 'Justine Lafortune',
'odue' => ''
},
'7' => {
'account' => 'ar161429',
'cdate' => '3/7/2007 15:36',
'name' => 'Woody Harding',
'odue' => '0'
},
'10' => {
'account' => 'ar182364',
'cdate' => '12/1/2006 15:36',
'name' => 'Mayson Gettemy',
'odue' => '1'
},
'id' => {
'account' => 'account_number',
'cdate' => 'created_date',
'name' => 'name',
'odue' => 'overdue'
},
'20' => {
'account' => 'ar106644',
'cdate' => '4/6/2007 15:36',
'name' => 'Reina Garratt',
'odue' => '1'
}
};
##
##
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Date::Calendar::Year;
my %balance;
my %account;
print "********** BALANCE DATA ***************\n";
bal_file();
print "********** ACCOUNT DATA ***************\n";
acct_file();
sub bal_file
{
open my $bal_fh, '<', 'b.csv' or die "failed to open a.csv $!";
while (my $line = <$bal_fh>) {
chomp $line;
my ( $id,$account_number, $balance, $due) = split /,/, $line,4;
$balance{$id} = {
account => $account_number,
balance => $balance,
due_date => $due
}
}
close $bal_fh;
print Dumper \%balance;
}
sub acct_file
{
open my $act_fh, '<', 'a.csv' or die "failed to open a.csv $!";
while (my $line = <$act_fh>) {
chomp $line;
my ( $id,$full_name,$created_date,$account_number, $overdue) = split /,/, $line,5;
$account{$id} = {
name => $full_name,
cdate => $created_date,
account => $account_number,
odue => $overdue
}
}
close $act_fh;
print Dumper \%account;
}