Perl - Textverarbeitung (Seite 2) (Allgemeines zu Perl)

[thread]6726[/thread]

Perl - Textverarbeitung (Seite 2)

Leser: 1

renee

2005-02-23 01:43

User since
2003-08-04
14371 Artikel
ModeratorIn

probier mal:

Code: (dl )

s~\b($verodert)\b~<mark>$1</mark>~gi;

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Dubu

2005-02-23 09:57

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

[quote=fatalis,23.02.2005, 00:28]

Code: (dl )

while (<FILE2>) { # aus Dateien aus @ARGV

s~($verodert)~<mark>$1</mark>~gi;
push @file, $_;
print @file;

}

close FILE2;

[/quote]
Bist du sicher, dass du das so willst? Hier gibst du bei jedem Zeilendurchlauf alle bisher verarbeiteten Zeilen aus (also zuerst die 1., dann 1. und 2., dann 1., 2. und 3. etc.).

Wenn du den gesamten Text nicht wirklich danach noch verarbeiten musst, solltest du das Array weglassen und jede Zeile nach der Ersetzung gleich ausgeben - also einfach "print" in der Schleife, wie in meinem Code oben.

Die Regexp solltest du so veraendern, wie renee geschrieben hat.

(Ach ja, den Kommentar solltest du auch wegnehmen, in dieser Form stimmt er ja nicht mehr, weil du nur eine Datei bearbeitest.)\n\n

View all threads created 2005-02-22 16:10.