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