Das mit den zwei Klassen in einer Datei bekomme ich jetzt hinn, habe Ehwichkeiten gebraucht um mitzubekommen das mit dem use-Befel kein Package sondern eine .pm-Datei eingebunden wird.
#!/usr/bin/perl
my $now=time,$sec=0;$|=1; while(1){if($now!=time){$now=time;if($sec==360){print "KuckKuck"; $sec=0;}else{print "TickTack";}$sec++;}}
pq
2006-10-20 17:06
User since 2003-08-04
12209
Artikel Admin1
[quote=betterworld,02.09.2006, 18:03]Bei strict und warnings ist es eigentlich auch nur dann noetig, wenn man jede Klasse in einen eigenen Block tut, so wie ich es gemacht habe).[/quote]
wenn du strict und warnings ganz oben hinschreibst, also ausserhalb
der bloecke, musst du es nur einmal schreiben.