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
Ich bekomme die Warnung
wegen des folgenden Codes:
Wie kann ich das am elegantesten umgehen? In einem Block mit no warnings und @colors außerhalb deklarieren? Oder in der Art
(falls das so geht), oder gibt es noch eine schönere Methode?
Code: (dl
)
Possible attempt to put comments in qw() list at V:\privat\perl\ged\ged.pl line 3643.
wegen des folgenden Codes:
Code: (dl
)
1
2
3
4
5
my @colors = (qw/#000000 #AA0000 #00AA00 #0000AA
#444444 #FF0000 #00FF00 #0000FF
#888888 #FFFF00 #00FFFF #FF00FF
#CCCCCC #FFAA00 #00BBBB #880088
#FFFFFF #AA8866 #008888 #660066/);
Wie kann ich das am elegantesten umgehen? In einem Block mit no warnings und @colors außerhalb deklarieren? Oder in der Art
Code: (dl
)
my @colors = map { "#$_" } (qw/000000 AA0000 00AA00 0000AA ... /);(falls das so geht), oder gibt es noch eine schönere Methode?
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