Hallo Leute,

ich habe nur rudimentäre Grundkenntnisse in Perl und muss nun leider kurzfristig folgende Aufgabe lösen:

Eine csv-Datei folgender Struktur

10;Geschichte;20. Jahrhundert;;;
20;Deutsch;Literatur;Dramatik;;
30;Logik;Philosophie;;;
40;Essays;
50;


muss folgendermaßen umgearbeitet werden.

10;Geschichte
10;20.Jahrhundert
20;Deutsch
20;Literatur
20;Dramatik
etc.



Jedes Feld eines Datensatzes soll also mit der ID in einer eigenen Zeile auftreten.
Wie geht das ?

Danke für Tipps!

Wenn in den Nutzdaten kein Semikolon vorkommen kann:



Ansonsten mal Text::CSV anschauen...

renee+2007-08-05 22:28:35--

Wenn in den Nutzdaten kein Semikolon vorkommen kann:

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl

use strict;
use warnings;

my $file = '/path/to/file.csv';

open my $fh, '<', $file or die $!;
while( my $line = <$fh> ){
    my ($id, @array) = split /;/, $line;
    print $id, ";", $_,"\n" for grep{ defined }@array;
}
close $fh;

Ansonsten mal Text::CSV anschauen...

Danke für die schnelle Reaktion!

Wenn ich als Feldtrennzeichen statt des Semikolons einen Doppelpunkt wähle, muss ich im von Dir vorgeschlagenen Code hinter "split" und "print $id" wohl das Semikolon durch den Doppelpunkt ersetzen, stimmts?

teacher+2007-08-05 22:37:15--

Wenn ich als Feldtrennzeichen statt des Semikolons einen Doppelpunkt wähle, muss ich im von Dir vorgeschlagenen Code hinter "split" und "print $id" wohl das Semikolon durch den Doppelpunkt ersetzen, stimmts?

Ja

..und dann sollte der Doppelpunkt nicht in den Nutzerdaten vorkommen..

(grrr, der login hier hält echt nur eine browsersitzung)