[quote=esskar,03.07.2004, 01:42][quote=Dieter,03.07.2004, 01:21]

[E|B

,02.07.2004, 18:54]@Dieter

Nur ruhig, er wollte doch nur wissen, WIE es geht. War doch keine böse Absicht! :)

Der weiss ganz genau WIE es geht ...
aber bitte nicht unterstellen dass es bösartig sein könnte was der Mann da so schreibt.[/quote]
woher kennt ihr euch?[/quote]
Ich nicht wissen - aber er schreibt stets so als wäre ich sein Lieblingsfeind.

Quote

Ich nicht wissen - aber er schreibt stets so als wäre ich sein Lieblingsfeind.

Ich finde, dass ist eine Frage des persönlichen. Ich kann nicht bestätigen, dass er jetzt andere Leute massiv angreift. Ich finde es schön, wenn er seine Verbesserungsvorschläge einbringt. Bezieh es doch nicht immer auf dich!

bitte OnTopic bleiben...

da ich noch nicht so viel mit perl gemacht habe und nur kleine tools baue würde mich interssieren was das für prog. sind die
so gross sind und mit perl geschrieben sind.
man weis ja nie ob man sowas nicht selbst mal machen muss

fürti rambo.

PS. lass keines und nichtiges dann hast du zeit für grosses
und wichtiges :-)

[quote=Rambo,03.07.2004, 11:40]da ich noch nicht so viel mit perl gemacht habe und nur kleine tools baue würde mich interssieren was das für prog. sind die
so gross sind und mit perl geschrieben sind.
man weis ja nie ob man sowas nicht selbst mal machen muss[/quote]
- webserver
- smtpserver
- *server
- ...

aber auch mod_perl programme

Bekannte groessere Projekte sind sicherlich Webmin, SpamAssassin, Bugzilla - vielleicht auch unser Wiki. :)

Man kann ja auch mal so schauen, was Sourceforge und Freshmeat an Projekten listen, die (nur oder auch) in Perl programmiert sind:
http://sourceforge.net/softwaremap/trove_list.php?form_cat=176
http://freshmeat.net/browse/176/

PS: Ich war uebrigens ziemlich ueberrascht, dass das Linux-Arcade-Spiel "Frozen Bubble" auch in Perl programmiert ist, unter Verwendung der SDL-Lib . Sicherlich nicht alltaeglich, weshalb man im Programmcode unter Lizenz und Copyright wohl die folgende Zeile findet:



:)

Es ist erstaunlich, wie manche Leute ein (!) Wort als feindseligen Angriff auf sich werten.

Zum Verweisen auf Buecher --- es ist nicht hilfreich, auf eine konkrete Seite in einem Buch, welches in mehreren Auflagen sowie als deutsche und englische Version erhaeltlich ist, zu verweisen. Eine Referenz auf eine Webresource oder ein Anreissen der Loesung waere hier in Forum hilfreicher gewesen.

Ich glaube noch immer nicht, dass man mit purem Perl zirkulaere Referenzen aufbrechen kann. Was man aber auf jeden Fall kann, ist ein Umschreiben der Datenstrukturen, so dass zirkulaere Referenzen nicht mehr entstehen. In perldoc perlobj steht dazu:

In the meantime, the best solution is to create a non-recursive container class that holds a pointer to the self-referential data structure. Define a DESTROY method for the containing object's class that manually breaks the circularities in the self-referential
structure.

Man müsste wohl bei einer kreisartigen, doppeltverbundenen Struktur dieser Art



Eine Richtung der Linkkette ganz entfernen und zusätzlich noch einen Link der anderen Richtung, so dass diese Struktur übrig bleibt:



Diese sollte die GC dann wegräumen können, falls es wirklich keine anderen Verweise mehr auf A, B, C, D und E gibt.

Insofern kann man es aufbrechen, aber zu welchem Preis.

(Oder liege ich falsch?)\n\n

<!--EDIT|Crian|1089024321-->

[quote=Crian,05.07.2004, 12:25]Insofern kann man es aufbrechen, aber zu welchem Preis.[/quote]
Der Preis ist, dass man eben die Rueckrichtung nicht mehr hat und man ein Zurueckgehen teuer durch Traversierung vom Anfang ersetzen muss.

Oder man verwendet Scalar::Util::weaken oder schreibt seine Datenstruktur grundlegend um.

So etwas in der Art meinte ich bei meinem "zu welchem Preis".
Oder die Kosten, all diese Links auf undef zu setzten beim Wegwerfen.

Wie würde man denn bei dem Modul Scalar::Util::weaken vorgehen? Bedeutet das Schwächen, dass diese Referenzen für die Referenzzählung nicht gezählt werden? Würde man dann die eine Richtung in obigem Kreis komplett schwächen, sowie eine Referenz der anderen Richtung?

Ziel muss ja sein, dass die Datenstruktur komplett abgeräumt werden kann, wenn sie aus dem Scope geht.

Das sind jetzt aber alles nur vage theoretische Überlegungen, ich habe mit dem Modul bisher noch nicht gearbeitet.

Quote

   weaken REF
       REF will be turned into a weak reference. This means that it will
       not hold a reference count on the object it references. Also when
       the reference count on that object reaches zero, REF will be set to
       undef.

       This is useful for keeping copies of references , but you don't want
       to prevent the object being DESTROY-ed at its usual time.

           {
             my $var;
             $ref = \$var;
             weaken($ref);                     # Make $ref a weak reference
           }
           # $ref is now undef

Aha :-)

Interessant ist dann sicherlich auch Scalar::Util::isweak

Quote

   isweak EXPR
       If EXPR is a scalar which is a weak reference the result is true.

           $ref  = \$foo;
           $weak = isweak($ref);               # false
           weaken($ref);
           $weak = isweak($ref);               # true