Opened by Gast at 2004-12-17 15:34
User since
2003-08-04
5871 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5871 Artikel
ModeratorIn
nur so als Ideenskizze:
(ungetestet)
Code: (dl
)
1
2
3
4
5
6
7
8
my $txt = $details[4];
my @t = split /#/, $txt;
for (my $i=0; $i<@t; $i+=2) {
print "normaler Text: $t[$i]\n";
print "Aufzählung: ", $t[$i+1], "\n" unless $i == $#t;
}
(ungetestet)
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