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   push @{ $update->{ $col . '_old' } }, $v;\r
   4   $v =~ s/(\d+)?\.?(\d{0,3})\,(\d{2})/$1$2.$3/;\r
   5   $v *= 1;\r
   6   push @{ $update->{$col} }, $v;\r
   7  }\r
   8 }\r