358 |
$found_any->{$fld_type} += $found; |
$found_any->{$fld_type} += $found; |
359 |
|
|
360 |
# we will skip delimiter before first occurence of field! |
# we will skip delimiter before first occurence of field! |
361 |
push @out, $del unless($found_any == 1); |
push @out, $del unless($found_any->{$fld_type} == 1); |
362 |
push @out, $tmp; |
push @out, $tmp; |
363 |
} |
} |
364 |
$f_step++; |
$f_step++; |
600 |
if ($$rec->{$f}->[$i] =~ /HASH/o) { |
if ($$rec->{$f}->[$i] =~ /HASH/o) { |
601 |
my $out; |
my $out; |
602 |
foreach my $k (keys %{$$rec->{$f}->[$i]}) { |
foreach my $k (keys %{$$rec->{$f}->[$i]}) { |
603 |
$out .= $$rec->{$f}->[$i]->{$k}." "; |
my $v = $$rec->{$f}->[$i]->{$k}; |
604 |
|
$out .= "$v " if ($v); |
605 |
} |
} |
606 |
return $out; |
return $out; |
607 |
} else { |
} else { |