seth_not@home: suchen/ersetzen in csv-dateien/regulaere Ausdruecke

Beitrag lesen

gudn tach!

alternativ zu steckls vorschlag:

#!/usr/bin/perl -w  
use strict;  
$_ = 'text;text;"mehrere; textschnippel";usw;';  
my @splitted = split /(".+?"|.+?);/;  # splitte zeile in bestandteile  
@splitted = grep {/./} @splitted;     # loesche leere zeilen  
map {s/[;"]//g} @splitted;            # loesche alle verbleibenden ; und "  
map {print $_,"\n"} @splitted;        # probe-ausgabe

prost
seth