Opened by Gast at 2005-06-06 23:26
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Solche print-Cascaden sind unschön. Dazu reicht eigentlich ein print aus.
Also statt
könntest Du schreiben:
oder
oder
\n\n
<!--EDIT|Crian|1118234693-->
Also statt
Code: (dl
)
1
2
3
4
5
print "\n\n\nSie haben ihre Benutzeroberflaeche betreten.\n\n\n";
print "\t\t\tWillkommen $benutzer";
print "\n\nUm ihre Persoehnlichen Daten einsehen zu koennen, geben sie look ein.";
print "\nUm sie zu aendern, einfach aendern eingeben.";
print "\nUm sich abzumelden geben sie abmelden oder ab ein.";
könntest Du schreiben:
Code: (dl
)
1
2
3
4
5
print "\n\n\nSie haben ihre Benutzeroberflaeche betreten.\n\n\n",
"\t\t\tWillkommen $benutzer",
"\n\nUm ihre Persoehnlichen Daten einsehen zu koennen, geben sie look ein.",
"\nUm sie zu aendern, einfach aendern eingeben.",
"\nUm sich abzumelden geben sie abmelden oder ab ein.";
oder
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
print qq(
Sie haben ihre Benutzeroberflaeche betreten.
Willkommen $benutzer
Um ihre Persoehnlichen Daten einsehen zu koennen, geben sie look ein.
Um sie zu aendern, einfach aendern eingeben.
Um sich abzumelden geben sie abmelden oder ab ein.);
oder
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
print <<"ENDE";
Sie haben ihre Benutzeroberflaeche betreten.
Willkommen $benutzer
Um ihre Persoehnlichen Daten einsehen zu koennen, geben sie look ein.
Um sie zu aendern, einfach aendern eingeben.
Um sich abzumelden geben sie abmelden oder ab ein.
ENDE
<!--EDIT|Crian|1118234693-->
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