Hoi,
Wat een kluns ben ik dat ik die optie niet heb bedacht. Bedankt dit is
perfect! Geweldig!
Groeten,
Brenno.
On Sun, 2005-03-20 at 22:09 +0100, Johan Vromans wrote:
> "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]
>
--
Brenno J.S.A.A.F. de Winter <[EMAIL PROTECTED]>
De Winter Information Solutions
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
