2010-10-12T19:32:09 pq

[...]

Code (perl): (dl )

1
2
3
4
5

use Text::CSV;
my $csv = Text::CSV->new({sep_char => ";"});
[...]
my @headers2 = map { $headers1{$_} } split /;/, $header2;
[...]

Da existiert schon ein CSV-Parserobjekt und trotzdem wird eine Zeile der CSV-Datei mittels -f split "geparst". In der Headerzeile einer CSV-Datei können genausogut Felder mit Quotes vorkommen wie in jeder anderen, also wäre es besser, auch diese Zeile mit Methoden von $csv zu zerlegen.