* Werner Schalk
Hallo,
ich habe ein vermeindlich einfaches Problem zu lösen, aber irgendwie stehe ich auf dem Schlauch. Ich habe eine Liste mit Personen, die untereinander in einer Liste stehen (reiner Text). Diese Liste möchte ich nun in eine kommaseparierte Form bringen, wobei jeweils vier Zeilen aus der Eingabe eine Zeile (mit vier Spalten) in der Ausgabe darstellen sollen. Also beispielsweise habe ich die folgenden Eingabedaten (fiktiv):
Müller Wolfgang EDV 4.26 Admin Intranet/Notes Schmitz Peter Controlling 5.11 Debitorenbuchhaltung
So und jetzt soll die Ausgabe so aussehen:
Müller,Wolfgang,EDV,4.26,Admin Intranet/Notes Schmitz,Peter,Controlling,5.11,Debitorenbuchhaltung
Hat jemand eine Idee, wie ich das mit sed, awk oder Perl machen kann?
#!/usr/bin/perl -w
use strict;
use warnings;
my $step_count = 0;
open(IN, $ARGV[0]) || die "can't open input file $!\n";
while (<IN>) {
next if /^$/;
chomp;
$step_count++;
if ($step_count == 5) {
print "$_\n";
$step_count = 0;
} else {
print "$_,";
}
}
close(IN);
cu
--
echo '@a=(A..Z,a..z," ");$t="a"x16;{for($x=0,$|=$n=30; $n--;){for($l=$t;
1