public/code/Duguje.float.pl

   1 foreach my $v ( @{ $row->{Duguje} } ) {\r
   2  push @{ $update->{Duguje_old} }, $v;\r
   3  $v =~ s/(\d+)?\.?(\d{0,3})\,(\d{2})/$1$2.$3/;\r
   4  $v *= 1;\r
   5  push @{ $update->{Duguje} }, $v;\r
   6 }