|
#!/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. |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |