Hier würde jede Zuweisungen wegfallen deren rechte Seite mit einer öffnenden Klammer beginnt.

Um alle Zeilen rauszufiltern, welche mit einer öffnenden Klammer beginnen, kann man unter den use-Statements folgendes einfügen: next if /^\(/; (In der Shebang habe ich -p angegeben.)

Bei der Zeichenklasse war ich mir nicht sicher, deshalb habe ich einfach alles escaped ;) (Und nicht an Dezimalzahlen gedacht..) Man kann sie aber auch so schreiben: $tmp_val =~ m{^[()\d.*/+-]+$} (clms hat diesen regex ja auch schon gepostet msg #143720)

edit: Klammern im regex vergessen...

MfG
Last edited: 2010-12-23 11:41:12 +0100 (CET)