Selbstdefinierte Messages für Objekte - #108058 (Allgemeines zu Perl)

Gast Gast

2008-04-08 10:14

Es gibt unter WinAPI und C++ sowas wie Messages. Zumidest kann ich mich da an etwas Ähnliches erinnern mit MFC.

Kleines Beispiel:

Code: (dl )

package Modul1;

sub new {
   return bless {}, shift;
}

sub sub1 {
  # Reaktion auf Message1
}

Code: (dl )

#!/perl

use Modul1;

my @mods = ();

for (0..100) {
push @mods, Modul1->new;
}

Nun will ich irgendwo im Code sowas wie «call sub1» stehen und alle Objekte (0..100) rufen ihre eigene sub1 auf als Reaktion auf «call sub1».