Thread Newline-Zeichen im Text entfernen
(22 answers)
Opened by rommmi at 2006-07-06 15:17 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 my $count = 0; my $satz = ''; while (defined(my $zeile = <FILE>)) { $count += ($zeile =~ m~"~); # " zählen $satz .= $zeile; if ($count % 2 == 0) { verarbeite_datensatz($satz); $satz = ''; $count = 0; } } oder sowas in der art... Per|li|nist der; -en, -en <zu â...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
|