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

Corrected regular expression

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-12-19 10:45:35 -05:00
parent e8dc0af426
commit 4240fb77aa
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

@ -57,7 +57,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*$//;