bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Main regex did not fully get rid of extraneous material.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-19 11:36:44 -05:00
parent 4240fb77aa
commit e868e62f78
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
external-account-totals-reconcile.plx
View file

@ -60,7 +60,7 @@ while (my $line = <STDIN>) {
/^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,]+)\s*\)?\s*$/;
my($acct, $value) = ($1, $2);
$acct =~ s/^\s*//; $acct =~ s/\s*$//;
$acct =~ s/\s{3,}[\(\)\d,\.\s]+$//;
$externalBalances{$acct} = ParseNumber($value);
}