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

Parse negative numbers better.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-19 11:42:31 -05:00
parent e868e62f78
commit 865a4f39e2
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -33,8 +33,12 @@ my $LEDGER_CMD = "/usr/bin/ledger";
my $ACCT_WIDTH = 75;
sub ParseNumber($) {
$_[0] =~ s/,//g;
return Math::BigFloat->new($_[0]);
my($val) = @_;
$val =~ s/,//g;
$val =~ s/\s+//g;
$val = - $val if $val =~ s/^\s*\(//;
return Math::BigFloat->new($val);
}
@ -57,7 +61,7 @@ while (my $line = <STDIN>) {
$line =~ s/^\s*//; $line =~ s/\s*$//;
next unless $line =~
/^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,]+)\s*\)?\s*$/;
/^\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]+$//;
@ -71,8 +75,8 @@ my %internalBalances;
while (my $line = <ACCT_DATA>) {
chomp $line;
$line =~ s/^\s*//; $line =~ s/\s*$//;
next unless
$line =~ /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/;
die "Strange line, \"$line\" found in ledger output" unless
$line =~ /^\s*(\S+\:[^\$]+)\s+\$?\s*([\-\d\.\,]+)\s*$/;
my($acct, $value) = ($1, $2);
$acct =~ s/^\s*//; $acct =~ s/\s*$//;