perl -> Problem beim Parsen einer csv-Datei

[mistersixt]

Moin moin,

ich habe hier eine csv-Datei, die ich umformatieren muss, der Seperator ist ein Komma (,). Nun kann es Zelleninhalte(!) geben, die auch ein Komma beinhalten, diese sind dann aber vorne und hinten durch ein Anführungszeichen (") gekennzeichnet, also zum Beispiel so:

Code: Alles auswählen

2004,,bla,blubb,"variante1, variante2", blubb,,,,

Mit der split-Funktion komme ich da offensichtlich nicht weit, und beispielsweise das Perl-Modul Text-CSV_XS spuckt bei solchen Zeilen einen Fehler aus. Interessanterweise kann OpenOffice diese Datei bestens einlesen, da gibt es neben dem Seperator noch das Feld "Text delimiter", wenn man da die Anführungsstriche angibt, liest er brav das CSV-File ein und bei obigen Beispiel steht dann:

Code: Alles auswählen

variante1, variante2

in entsprechender Zelle, sogar ohne die Anführungsstriche.

Wie mache ich das in Perl?

Danke im voraus,

Gruss, mistersixt.

[mistersixt]

Oha, habs gerade selber hinbekommen (ich liebe Google), auf dieser Seite gibt es ein csv-Modul:

http://rath.ca/Misc/Perl_CSV/CSV-2.0.html

Bei dem Example unten sieht man leicht, wie man die Datei abändern kann, das csv-File wird korrekt geparst!

Gruss, mistersixt.