Opened by scooby at 2004-08-09 13:50
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Du sprachst zuerst von Sortierung. Dabei gehen eigentlich keine Zeilen verloren. Jetzt sprichst Du von etwas wie Ausschneiden, Du möchtest also die Zeilen mit ROT und deren Folgezeilen haben, die anderen Zeilen nicht?! Sollen diese ausgegebenen Zeilen dann noch irgendwie sortiert werden?
Entschuldige das "dumme" Nachgefrage, aber mir ist Dein Problem einfach noch nicht ganz klar. =)
Trotzdem versuche ich Dir mal einen Ansatz zu geben, an dem können wir dann ja noch arbeiten:
(ungetestet)\n\n
<!--EDIT|Crian|1092048734-->
Entschuldige das "dumme" Nachgefrage, aber mir ist Dein Problem einfach noch nicht ganz klar. =)
Trotzdem versuche ich Dir mal einen Ansatz zu geben, an dem können wir dann ja noch arbeiten:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
my $lastline = '';
while (<>) {
if (m~ROT~ or $lastline =~ m~ROT~) {
print;
}
$lastline = $_;
}
(ungetestet)\n\n
<!--EDIT|Crian|1092048734-->
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