"Brenno J.S.A.A.F. de Winter" <[EMAIL PROTECTED]> writes:
> Heeft iemand daar een handigheidje voor?
Schrijf een klein Perl programmatje dat
- elke regel inleest,
- split op TABS (levert NN velden op),
- schrijf de eerste NN-1 velden weer weg, met TABs ertussen,
- schrijf 1 TAB gevolgd door de inhoud van het laatste veld, en nog
NN-2 TABs
Het resulterende bestand invoeren, en de tekst van de te lange laatste
kolom komt nu in de tweede kolom en vult uit over de resterende
kolommen.
-- Johan
#!/usr/bin/perl
use strict;
while ( <> ) { # lezen
chomp; # CR/LF weg
my @a = split(/\t/, $_); # splitsen
my $nn = scalar(@a); # aantal velden
my $last = pop(@a); # laatste veld eruit
print join("\t", @a), "\n: # schrijf 1e NN-1 velden
print "\t", $last, "\t" x ($nn-2), "\n"
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
