Die Benutzung von Klassen

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

testcounter.pl
#!/usr/local/bin/perl

use strict;
use warnings;
use Counter;

my $counter = new Counter @ARGV;
while (defined(my $ch = getc(STDIN))) {
   if ($ch eq "+") {
      $counter->inc;
   } elsif ($ch eq "-") {
      $counter->dec;
   }
}
print $counter->val, "\n";

*Mit use Counter wird die Klasse importiert, wobei hier der eigene Namensraum unverändert bleibt (abgesehen von Counter).
 
*Die Syntax von Methodenaufrufen ist entweder
method object parameters oder
object->method parameters
 
*Ein Modul ist ein Objekt, das mit sich selbst verknüpft ist.
 
*Die Operation new kann entsprechend hier via
new Counter @ARGV oder
via Counter->new(@ARGV) aufgerufen werden.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003