Opened by Mia at 2004-06-07 10:43
User since
2004-06-01
12 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-06-01
12 Artikel
BenutzerIn
Hi,
ich konnte mit renees Code die Seiten schon finden:
Das Problem was ich habe: ich kann die Strings nicht mehr bearbeiten. Wie schaffe ich es also innerhalb der Schleife die Strings zu suchen und zu ersetzen?
???
ich konnte mit renees Code die Seiten schon finden:
Code: (dl
)
s/(S\.\s\d+(\s\-\d+)?)/<Seite>$1<\/Seite>/g;
Das Problem was ich habe: ich kann die Strings nicht mehr bearbeiten. Wie schaffe ich es also innerhalb der Schleife die Strings zu suchen und zu ersetzen?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
my $bold = 0;
while (my $line = <MAIL>) {
if ( $line =~ /^Aufgabe/ ) {
$bold = 1;
}
print FILE $line if $bold;
if ( $line =~ /^Seite/ ) {
$bold = 0;
print "\n";
}
}
???