#!/usr/bin/perl -w # use warnings
use strict;
use diagnostics;

##</code><code>##

use Data::Table;
$joinTable->colsMap( sub { $_->[4]  = skipblanks( $_->[4] ) } );

sub skipblanks {
    my @data = @_;
    my $x    = 0;
    foreach $x (@data) {
        if ($x) {
            $x =~ s/,/\./g;
        }
        return $x;
    }
}

##</code><code>##

use Data::Table;
$joinTable->colsMap( sub { $_->[4]  = to_int_or_zero( $_->[4] ) } );

sub to_int_or_zero {
    my $value = shift;
    if (
        defined($value)
        && (   $value =~ m/^\d+$/
            || $value =~ m/^-?\d+\.?d*$/ )
      )
    {
        return $value;
    }
    else {
        return 0;
    }
}