seth_not@home: PERL - Zeichen vor @ entfernen

Beitrag lesen

gudn tach!

Ich versuche in einem Textfile alle Zeichen die zwischen einem Leerzeichen und einem @ stehen zu löschen.

s/ [^@ ]*@/ @/g

das erste zeichen matcht ein leerzeichen.
[^@ ] matcht ein zeichen der klasse, welche aus allen zeichen besteht ausser @ und leerzeichen.
* heisst, dass das zeichen davor, also [^@ ] mind. null-mal gematcht werden soll, aber so haeufig wie moeglich.
@ steht fuer das abschliessende @.

ersetzt wird das ganze dann durch ein leerzeichen gefolgt von einem @.

prost
seth