public/code/Duguje.float.pl

   1 foreach my $col ( grep { m/(Duguje|Potra.uje|Saldo)/ } keys %$row ) {\r
   2  foreach my $v ( @{ $row->{$col} } ) {\r
   3   next unless length($v) > 0;\r
   4   push @{ $update->{ $col . '_old' } }, $v;\r
   5   $v =~ s/(\d+)?\.?(\d{0,3})\,(\d{2})/$1$2.$3/;\r
   6   push @{ $update->{$col} }, sprintf('%.2f',$v);\r
   7  }\r
   8 }\r