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

$line was missing.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-19 10:40:18 -05:00
parent 6039cffabf
commit 0c64682274
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -53,7 +53,7 @@ my(@accountOptions) = ('--wide-register-format', '%-.150A %22.108t\n', '-w', '-
my %externalBalances; my %externalBalances;
while (my $line = <STDIN>) { while (my $line = <STDIN>) {
next unless 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);
@ -68,7 +68,7 @@ while (my $line = <ACCT_DATA>) {
chomp $line; chomp $line;
$line =~ s/^\s*//; $line =~ s/\s*$//; $line =~ s/^\s*//; $line =~ s/\s*$//;
next unless next unless
/^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/; $line =~ /^\s*(\S+\:.+)\s+[\(\d].+\s+\(?\s*([\d\.\,])+\s*\)?\s*$/;
my($acct, $value) = ($1, $2); my($acct, $value) = ($1, $2);