Opened by scooby at 2004-08-09 13:50
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
@Montyk: auch Dir ein herzliches Willkommen. Allerdings ist Deine Antwort wohl nicht die Lösung des Problems ;)
Mein Algorithmus von oben lässt sich noch beschleunigen, denn dort teste ich jede Zeile zwei Mal.
Mein Algorithmus von oben lässt sich noch beschleunigen, denn dort teste ich jede Zeile zwei Mal.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict;
use warnings;
my $lastmatch = 0;
while (<>) {
my $match = m~ROT~;
print if $match or $lastmatch;
$lastmatch = $match;
}
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