Suche regulären Ausdruck (Allgemeines zu Perl)

[thread]6306[/thread]

Suche regulären Ausdruck

Mia

2004-06-02 15:50

User since
2004-06-01
12 Artikel
BenutzerIn
[default_avatar]

Hallo ihr Lieben,
da ihr mir gestern sehr nett geholfen habt, versuche ich es heute nochmal.
In einer txt-Datei steht:
Text Text,
blabla blabla blabla. Text Text "blabla".
Text Text Text Text Text Schlüsselwort.

Aufgabe: 1
Text Text Text S. 23

Aufgabe: 2
Text Text S. 24 - 25

1. Ich möchte gerne den nicht-fetten Text entfernen. Wie kann man bis zu dem Schlüsselwort suchen?

2. Wie kann ich die Seitenzahl matchen und durch <Seite> S. 24 - 25 <\Seite> ersetzen? Der folgende Ausdruck gibt nur <Seite>24</Seite> - 25 aus

Code: (dl )

s/ S\. (\d*[ \- \d*]?)/<Seite>$1<\/Seite>/g;

Vielen Dank,
Mia

renee

2004-06-02 16:11

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

s/(S\.\s\d+(\s\-\d+)?)/<Seite>$1<\/Seite>/g;

Bearbeitet von Crian: Code-Tags hinzugefügt *breitgrins* ;-)\n\n

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/

foobar

2004-06-02 16:30

User since
2003-08-04
69 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

#!/usr/bin/perl -w
use strict;

my $content = qq(Text Text, blabla blabla blabla. Text Text blabla. Text Text Text Text Text Schluesselwort. 
Aufgabe: 1 Text Text Text S. 23 
Aufgabe: 2 Text Text S. 24 - 25 );

$content =~ s|.*?Schluesselwort||gsi;  
$content =~ s|(S\.[\d\-\s]+)|<seite>$1<\/seite>|gsi;

print $content."\n";

HTH\n\n

The three chief virtues of a programmer are: Laziness, Impatience and Hubris
[Larry Wall]

View all threads created 2004-06-02 15:50.