Opened by oruebe at 2004-12-09 16:56
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
btw dies hier:
geht auch eleganter. Variante 1:
Variante 2:
\n\n
<!--EDIT|Crian|1102609488-->
Code: (dl
)
1
2
3
4
5
6
7
print "Mo: $TAG[0]<BR>";
print "DI: $TAG[1]<BR>";
print "Mi: $TAG[2]<BR>";
print "Do: $TAG[3]<BR>";
print "Fr: $TAG[4]<BR>";
print "Sa: $TAG[5]<BR>";
print "So: $TAG[6]<BR>";
geht auch eleganter. Variante 1:
Code: (dl
)
1
2
3
4
5
6
7
print "Mo: $TAG[0]<BR>",
"DI: $TAG[1]<BR>",
"Mi: $TAG[2]<BR>",
"Do: $TAG[3]<BR>",
"Fr: $TAG[4]<BR>",
"Sa: $TAG[5]<BR>",
"So: $TAG[6]<BR>";
Variante 2:
Code: (dl
)
print +(qw/Mo Di Mi Do Fr Sa So/)[$_], ': ', $TAG[$_], '<BR>' for 0..6;
<!--EDIT|Crian|1102609488-->
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