diff --git a/external-account-totals-reconcile.plx b/external-account-totals-reconcile.plx index e563eb1..14e8ac4 100755 --- a/external-account-totals-reconcile.plx +++ b/external-account-totals-reconcile.plx @@ -53,9 +53,13 @@ my(@accountOptions) = ('--wide-register-format', '%-.150A %22.108t\n', '-w', '- my %externalBalances; while (my $line = ) { + chomp $line; + $line =~ s/^\s*//; $line =~ s/\s*$//; + next unless $line =~ /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/; my($acct, $value) = ($1, $2); + $acct =~ s/^\s*//; $acct =~ s/\s*$//; $externalBalances{$acct} = ParseNumber($value); } @@ -71,6 +75,7 @@ while (my $line = ) { $line =~ /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/; my($acct, $value) = ($1, $2); + $acct =~ s/^\s*//; $acct =~ s/\s*$//; $internalBalances{$acct} = ParseNumber($value);