csv Datei erstellen

chris085

Registered User
Moin,

ich habe folgender IST Zustand

Code:
wort1
wort2
wort3
wort4
wort5
wort6

Daraus möchte ich folgendes machen:

Code:
wort1;wort2;wort3
wort4;wort5;wort6

Wie kann ich dass am besten bewerkstelligen ?

Danke

Gruß
Chris
 
untested: build_csv.pl
Code:
#!/usr/bin/perl
$cnt=0;
while (<STDIN>) {
	chomp;
	$cnt++;
	print ';' if ($cnt > 1);
	print $_;
	if ($cnt == 3) {
		print "\n";
		$cnt = 0;
	}
}

Aufruf:
Code:
perl build_csv.pl <datei >datei.csv

huschi.
 
hm, hängt irgendwie und macht garnichts. ^^
Leider konnt ich mit meinem beschränkten perl noch keinen fehler finden.
 
Also das Scriptchen funktioniert einwandfrei. ;)

Code:
# vim wort
# cat wort
wort1
wort2
wort3
wort4
wort5
wort6
# vim get_csv.pl
# chmod +x get_csv.pl
# ./get_csv.pl < wort
wort1;wort2;wort3
wort4;wort5;wort6
#

Hast du vielleicht einen Fehler beim kopieren gemacht? ;)
Oder ist vielleicht dein Ist-Zustand ein anderer?
 
@chris085: Das Script macht das, was Du willst ;)

Code:
:~$ ./build_csv.pl <test.txt >test.csv
:~$ cat test.csv
wort1;wort2;wort3
wort4;wort5;wort6

//Edit: Firewire2002 war etwas schneller ;)
 
Danke dass so Viele sich die Mühe machen mein Getippse zu testen.
Ich war zu faul dazu... :D

huschi.
 
Back
Top