Mailinglist Archive: opensuse-de (4390 mails)

< Previous Next >
Zeilenumbruch in Perlskripten
  • From: raas@xxxxxxxxxxxxxxxxxxx (Carsten Raas)
  • Date: Thu Aug 12 20:30:56 1999
  • Message-id: <19990812223056.A9490@xxxxxxxxxxxxxxxxxxx>



Hi Liste!

Ich habe in einem Perl-Aufruf in meiner .procmailrc einige etwas zu
lange Zeilen, die nur sehr schwer zu editieren sind. Daher dachte ich,
ich koenne mit \ eine Zeilenumbruch, der keine Syntaxprobleme
verursucht, bewerkstelligen und so das ganze etwas uebersichtlicher
gestalten.

Der folgende Aufruf funktioniert allerdings nur, wenn ich alles (unter
Entfernung der \ am Zeilenende) in eine Zeile quetsche:

:0 fbw
| perl -pe 'undef $/; s/^((>[ ]?)*(--)?[ ]?\n)*(.i*)\
Um[ ]die[ ]Liste[ ]abzubestellen,[ ]schicken[ ]Sie[ ]eine[ ]Mail[ ]an:\n\
(.*)suse-linux-unsubscribe\@suse\.com\n\
(.*)Um[ ]eine[ ]Liste[ ]aller[ ]verf.gbaren[ ]Kommandos[ ]zu[ ]bekommen,\
[ ]schicken\n(.*)Sie[ ]eine[ ]Mail[ ]an:\n\
(.*)suse-linux-help\@suse\.com(\n)?//gm'

Mir ist schon klar, dass dieser ^^^ Aufruf nicht so lang sein muesste,
es ist aber nur ein Beispiel. Micht stoeren eigentlich auch schon 100
Zeichen lange Zeilen, vor allem Dingen in einer Konsole.

Bin kein Perl-Profi, da ich nur die regexp´s benutze. Und leider kann
man die Ueber-1000-Seiten-Doku so schlecht nach dem Stichwort
Zeilenumbruch durchsuchen ;-)

_Also_: Wie breche ich den Programmtext um?

Gruss

Carsten


--
Carsten Raas -- Xantener Str. 13 -- 50733 Koeln
Privat: mailto:raas@xxxxxxxxxxxxxxxxxxx -- (02 21) 7 60 61 00
Uni: mailto:cr@xxxxxxxxxxxxxxxx -- (02 21) 4 70-42 04


< Previous Next >
Follow Ups