Hallo Wolfgang, Am Mon, 23 Nov 2015, hamann.w@t-online.de schrieb:
Hier mal eine Idee wie das in Perl aussehen könnte
$headers = 0; while(<>) { if(!$headers && /^From /) { $headers = 1; $suppress = 0; } elsif($headers && /^\r?$/) { $headers = 0; } if($headers) { if(/^Received/) { $suppress = 1; next; } elsif($suppress && /^[ \t]/) { next; } else { $suppress = 0; } } print; }
Wenn ich wenigstens etwas Ahnung von Perl hätte ... Aber ich befürchte ohnehin, dass ich damit das gleiche Problem wie mit den regulären Ausdrücken in sed hätte :-( Beste Grüße Heinz -- Buchsatz für Autoren. Vom Manuskript zum Buch www.pahlke-online.de Bücher abseits des Mainstreams www.buchentdeckungen.de Barrierefreies Webdesign www.Pahlke-KunstWebDesign.de -- Um die Liste abzubestellen, schicken Sie eine Mail an: opensuse-de+unsubscribe@opensuse.org Um den Listen Administrator zu erreichen, schicken Sie eine Mail an: opensuse-de+owner@opensuse.org