Opened by Froschpopo at 2009-05-26 03:32
User since
2006-07-10
2611 Artikel
BenutzerIn
2006-07-10
2611 Artikel
BenutzerIn
Ich denke so könnte es gehen:
Du könntest aber auch ein CSV-Modul nutzen.
Code (perl): (dl
)
1 2 3 4 5 6 7
$str = 'Perl, Froschpopo, "Camel book", CGI, "1, 2, 3 Meins!", Das ist ein Test "Angefuehrt", Klappt!'; while($str=~/(?:^|,)\s*("[^"]*"|[^,]*)/gc) { my $b=$1; $b=~s/^"(.+)"$/$1/sg; print "$b\n"; }
Du könntest aber auch ein CSV-Modul nutzen.