Opened by Gast at 2006-06-24 16:32
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Probier mal
(ungetestet)
Ist sichergestellt, dass das öffnende ## und das schließende ## immer in der gleichen Zeile vorkommen? Sonst funtioniert obiges nicht. Dann müsste man vielleicht den Zeilentrenner auf '##' setzen und so an die Fragen kommen.\n\n
<!--EDIT|Crian|1155644739-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
my @fragen;
open (OUT, ">$datei2") or die $!;
while (<>) {
push @fragen, /##([KYRILLISCHE ZEICHENa-zA-Z0-9"-]+(?:\s+[KYRILLISCHE ZEICHENa-zA-Z0-9"-]+)*)##/g;
}
close OUT or warn $!;
for my $q (@fragen) {
print "Gefunden: [$q]\n";
}
(ungetestet)
Ist sichergestellt, dass das öffnende ## und das schließende ## immer in der gleichen Zeile vorkommen? Sonst funtioniert obiges nicht. Dann müsste man vielleicht den Zeilentrenner auf '##' setzen und so an die Fragen kommen.\n\n
<!--EDIT|Crian|1155644739-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite