Opened by ema at 2006-09-02 14:35
User since
2006-06-09
8 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-06-09
8 Artikel
BenutzerIn
Ich habe zwei Fragen bezüglich Objektorientirtesprogramieren in Perl:
1. Gibt es ein Tutorial in dem beschrieben wird wie mann in Perl eine vererbung realisirt?
2. Kann mann mehrere Klassen in eine Datei packen?
1. Gibt es ein Tutorial in dem beschrieben wird wie mann in Perl eine vererbung realisirt?
2. Kann mann mehrere Klassen in eine Datei packen?
#!/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++;}}
my $now=time,$sec=0;$|=1; while(1){if($now!=time){$now=time;if($sec==360){print "KuckKuck"; $sec=0;}else{print "TickTack";}$sec++;}}