support tables with different number of columns (NUMTAG)

[crolist2marc] / csv2tsv.pl

diff --git a/csv2tsv.pl b/csv2tsv.pl
index fdbd848..6ace7eb 100755 (executable)
--- a/csv2tsv.pl
+++ b/csv2tsv.pl
@@ -23,7 +23,7 @@ while(my $line = <>) {
        if ( $#v > $cols ) {
 #warn "FIX $#v $cols", dump(@v);
                my @l2 = splice( @v, -2 ); # keep last two
-               my @fix = splice( @v, 6 );
+               my @fix = splice( @v, $cols - 3 );
 warn "XXX before ",dump( @fix );
                my ( $k, $v ) = ( shift(@fix), '' );
                while ( @fix && (( length($k) + length($fix[0]) ) < 8 ) ) {