On Wed, Aug 22, 2001 at 04:22:49PM +0200, Heiko Schlittermann wrote:
On Wed, Aug 22, 2001 at 08:55:12AM +0200, Thomas Guettler wrote:
Laut info-page kann grep nicht über mehrere Zeilen suchen.
Ich möchte nach folgenden Pseudo-Pattern in Dateien suchen:
class .* ( .* foo .* )
perl -n -e '/class\b.*?(\n.*?\nfoo\n.*)/ and print';
Gute Idee. "-n" klappt aber nicht, weil der Zeilenseperator (\n) vorher gesetzt werden muss:
perl -e '$/=undef; while(<>){ /class\s*((\n|.)*foo(\n|.)*)/ and print }' *
Dies mach etwas was ich will.
Doch, Perl-Experten, wie kriege ich den Dateinamen, der von <> gerade bearbeitet wird?
oder so ähnlich. Das hängt von Deinen Vorstellungen von den Zeilenumbrüchen ab.
Kann mit Phyton nicht sowas selbst suchen? Ich dachte, mit Phyton kann man auch alles machen ;-)
Ja, kann man. Aber Perl macht auch Spaß.