public/code/Datum obrade.iso.pl

   1 foreach my $col ( grep { m/Datum/ } keys %$row ) {\r
   2  foreach my $v ( @{ $row->{$col} } ) {\r
   3   $v =~ s/(\d\d)\.(\d\d)\.(\d\d\d\d)/$3-$2-$1/;\r
   4   push @{ $update->{$col} }, $v;\r
   5  }\r
   6 }\r