if ($self->datatype->[$_] =~ /^(?:TINYINT|MEDIUMINT|SMALLINT|INT|INTEGER|BIGINT|FLOAT|DOUBLE)$/) { $hr_returnvalue->{$CurrentColumnName} = 0 + substr ($textinput, $self->flatfield_start->[$_], $self->flatfield_length->[$_]);# create a numeric value. # Decimal-correction if ($self->decimals->[$_] > 0 and defined $hr_returnvalue->{$CurrentColumnName}) { $hr_returnvalue->{$CurrentColumnName} /= 10**$self->decimals->[$_]; } } else { $hr_returnvalue->{$CurrentColumnName} = substr ($textinput, $self->flatfield_start->[$_], $self->flatfield_length->[$_]); $hr_returnvalue->{$CurrentColumnName} =~ s/^\s*(.*?)\s*$/$1/; # Trim whitespace # Fill empty fields with that field's default value, if such a value is defined if ($hr_returnvalue->{$CurrentColumnName} eq "") { if (defined $self->standadefaultard->[$_]) { if ($self->datatype->[$_] =~ /^(?:CHAR|VARCHAR|DATE|TIME|DATETIME)$/) { $hr_returnvalue->{$CurrentColumnName} = sprintf ("%s", $self->default->[$_]); } else { $hr_returnvalue->{$CurrentColumnName} = $self->default->[$_]; } } else { # Remove empty field delete $hr_returnvalue->{$CurrentColumnName}; } } }