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?