Opened by satanica1976 at 2004-08-16 17:47
User since
2003-08-04
5870 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5870 Artikel
ModeratorIn
print qq§</BODY<\n</HTML>§
->
print qq§</BODY>\n</HTML>§;
und
my @ row;
while [row=$sth->fetchow_array)
{print "<P>@row</P>\n"}
->
my @row;
while (@row=$sth->fetchow_array) {
print "<P>@row</P>\n";
}\n\n
<!--EDIT|Crian|1092909298-->
->
print qq§</BODY>\n</HTML>§;
und
my @ row;
while [row=$sth->fetchow_array)
{print "<P>@row</P>\n"}
->
my @row;
while (@row=$sth->fetchow_array) {
print "<P>@row</P>\n";
}\n\n
<!--EDIT|Crian|1092909298-->
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