1
2
3
4
5
6
7
8
my $obj = Modul->new(@allgemein_gueltig);
while (my $cgi = new CGI::Fast) {
my $privat = $obj->setItem('bla');
$privat->mach_irgendetwas;
}
1
2
3
4
5
6
7
8
9
sub setItem {
my $self = shift; # allgemeine_gueltige Daten importieren
my $arg = shift;
my $items = {};
$items->{content} = $arg;
bless($items);
return $items;
}
2012-03-21T07:30:04 FroschpopoWenn die while durchlaufen und $privat wieder erloschen ist, wird dann auch dessen Objekt aus dem Speicher entfernt? Ich möchte nämlich Zombieprozesse verhindern indem sich $obj irgendwann aufbläht!
2012-03-21T11:05:12 pq[...]
wenn das nicht so wäre, hätte perl keine funktionierende garbage collection.
2012-03-21T14:20:04 murphy<haarspalterei>
Perl hat ja überhaupt keine Garbagecollection, sondern verwendet ausschließlich Referenzzähler zum Speichermanagement ;-)
</haarspalterei>