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

Remove whitespace that's around.

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

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

@ -53,9 +53,13 @@ my(@accountOptions) = ('--wide-register-format', '%-.150A %22.108t\n', '-w', '-
my %externalBalances; my %externalBalances;
while (my $line = <STDIN>) { while (my $line = <STDIN>) {
chomp $line;
$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*$//;
$externalBalances{$acct} = ParseNumber($value); $externalBalances{$acct} = ParseNumber($value);
} }
@ -71,6 +75,7 @@ while (my $line = <ACCT_DATA>) {
$line =~ /^\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);
$acct =~ s/^\s*//; $acct =~ s/\s*$//;
$internalBalances{$acct} = ParseNumber($value); $internalBalances{$acct} = ParseNumber($value);