Thread Objektorientiertes Programmieren in Perl
(11 answers)
Opened by ema at 2006-09-02 14:35
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++;}} |