einzelne Woerter entfernen: nicht ganze zeilen - #70213 (Allgemeines zu Perl)

docsnyder

2006-09-26 15:07

User since
2005-09-08
300 Artikel
BenutzerIn

@renee

Quote
Das ist weniger lesbar undauch langsamer

Weniger lesbar? Find ich nicht, ist aber Geschmacksache ;o)

split/join sind auch nicht gerade "billig" (Array anlegen, String nach Trennern durchsuchen, Teilstrings kopieren, etc. und beim join dann das ganze zurück) und der von mir verwendete RegEx ist alles andere als "teuer" (geht direkt von links nach rechts in einem Rutsch und ohne Backtracking durch! ).

Quote
Und nicht so flexibel. Wenn Du auf 5 Spalten erweitern musst, musst Du den RegEx anpassen.

Nö!

Code: (dl )

$columns = 3;
$cnt     = $columns - 1;

$line =~ s/^(([^;]*;){$cnt}[^;]).*$/$1/;

Gruß, Doc