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
Du kannst natürlich auch mit
Dein Array einfach auf definierte Werte setzen, aber das wird das Problem wohl nicht lösen, da der Fehler ja woanders zu stecken scheint. Ich werd jetzt mal einen Blick auf Deinen Code werfen...
Zum Code:
1) Verwende use strict und use warnings!
2) Frage den Erfolg Deiner Aktionen ab (open (...) or die $!;)
3) Der Punkt hat in einem regulären Ausdruck eine besondere Bedeutung und muss deshalb mit einem Backslash escaped werden.
4) Verwende nicht $a und $b (außer in Funktionen, die Du in Sort verwendest).
5) Rücke Dein Programm vernünftig ein -> perldoc perlstyle.
6) Wenn Du Werte einer Funktion abholst, von denen Du nicht alle brauchst, kannst Du bei den anderen undef hinschreiben oder aber nur einen entsprechenden Arrayslice aus dem zurückgegbenen Array ausschneiden:
Also statt
oder
Und ... das soll kein "Gemecker" sein =)\n\n
<!--EDIT|Crian|1102609083-->
Code: (dl
)
$stunden[$_] = 0 for 0..24;
Dein Array einfach auf definierte Werte setzen, aber das wird das Problem wohl nicht lösen, da der Fehler ja woanders zu stecken scheint. Ich werd jetzt mal einen Blick auf Deinen Code werfen...
Zum Code:
1) Verwende use strict und use warnings!
2) Frage den Erfolg Deiner Aktionen ab (open (...) or die $!;)
3) Der Punkt hat in einem regulären Ausdruck eine besondere Bedeutung und muss deshalb mit einem Backslash escaped werden.
4) Verwende nicht $a und $b (außer in Funktionen, die Du in Sort verwendest).
5) Rücke Dein Programm vernünftig ein -> perldoc perlstyle.
6) Wenn Du Werte einer Funktion abholst, von denen Du nicht alle brauchst, kannst Du bei den anderen undef hinschreiben oder aber nur einen entsprechenden Arrayslice aus dem zurückgegbenen Array ausschneiden:
Also statt
Code: (dl
)
($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=localtime($DATEN[0]);
Code: (dl
)
(undef,undef,$hour,$mday,$mon,$year,$wday,undef,undef)=localtime($DATEN[0]);
oder
Code: (dl
)
($hour,$mday,$mon,$year,$wday)=(localtime($DATEN[0]))[2..6];
Und ... das soll kein "Gemecker" sein =)\n\n
<!--EDIT|Crian|1102609083-->
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