Opened by Crian at 2004-12-31 17:54
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Außerdem warnt er trotz escapen ... ^^ Nun siehts so aus
und funktioniert (ohne Warnung).
[quote=format_c,31.12.2004, 17:34]Was hindert dich daran einfach nur die drei Werte in dem Array zu speichern und erst wenn sie zur Ausgaben gebraucht werden das "#" voranstellen?[/quote]
Das ist nicht so schön wie die map-Variante, da ich dann an mehreren Stellen das Lattenkreuz hinzufügen müsste und die Chance das zu vergessen steigt. Also imho lieber gleich bei allen dazutun.
P.S. Hab ich eigentlich einen Schaden, S[iy]lvester nach 18 Uhr noch zu programmieren? :D (Naja, ihr seit ja auch hier ...)\n\n
<!--EDIT|Crian|1104512633-->
Code: (dl
)
1
2
3
4
5
my @colors = map { "#$_" } (qw/000000 AA0000 00AA00 0000AA
444444 FF0000 00FF00 0000FF
888888 FFFF00 00FFFF FF00FF
CCCCCC FFAA00 00BBBB 880088
FFFFFF AA8866 008888 660066/);und funktioniert (ohne Warnung).
[quote=format_c,31.12.2004, 17:34]Was hindert dich daran einfach nur die drei Werte in dem Array zu speichern und erst wenn sie zur Ausgaben gebraucht werden das "#" voranstellen?[/quote]
Das ist nicht so schön wie die map-Variante, da ich dann an mehreren Stellen das Lattenkreuz hinzufügen müsste und die Chance das zu vergessen steigt. Also imho lieber gleich bei allen dazutun.
P.S. Hab ich eigentlich einen Schaden, S[iy]lvester nach 18 Uhr noch zu programmieren? :D (Naja, ihr seit ja auch hier ...)\n\n
<!--EDIT|Crian|1104512633-->
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