Bekanntlich muss am Ende jeder Datei, die mit "use" oder "require" ein wahrer Wert zurueckgegeben werden. Mir ist es allerdings schon oefter vorgekommen, dass ich dies vergass und das Programm trotzdem einwandfrei lief. Allerdings ist dies nicht immer der Fall. Und wenn ich dann irgendwann irgendwo im Programm etwas veraendere, beschwert sich Perl ploetzlich, dass kein wahrer Wert zurueckgegeben wird, obwohl es das vorher nicht tat.

Weiss irgendwer, ob dieses Verhalten willkuerlich ist oder irgendwelchen Gesetzmaessigkeiten gehorcht? Sprich: Wann ist es egal und wann nicht?

Mal geraten!

Der Rückgabewert bei sub ist, wenn er nicht explizit angegeben worden ist, immer das Ergebnis der zuletzt ausgeführten Anweisung.

So könnte das bei Modulen auch sein. Wenn Du am Anfang Glück hattest und dabei immer etwas Wahres rauskam, hast Du vielleicht später etwas verändert, dass das ganze als falsch rauskam.

Also am besten immer mit 1; enden lassen.

Das würde ich auch vermuten.

Wenn du mit z.B. einen Code einbindest wie


Wird dieser nicht funktionieren weil require respektive use keinen wahren Werte zuückgegeben bekommt.
Warum?
Weil sub's nur explizit aufgerufen werden können.

wobei der nur der Code


als mit require eingebundener Code wird funktionieren.

Da print Irgendwas normalerweise 1 zurückgibt. Naja und in diesem Zuge wurde das Hello World auch gleich ausgegeben.

Gruß Alex

Ich weiss allerdings sicher, dass es auch Faelle gab, wo "require" funktioniert hat, obwohl das letzte in der requireten Datei eben solch eine sub-Definition war. Falls mir mal wieder so etwas auftaucht, werde ich es mal posten. Das ist wie Magie.

Na dann such mal fleißig :)

Ich hatte gerade solch eine Datei gefunden und wollte sie verzweifelt posten, aber ich glaube, ich habe jetzt des Raetsels Loesung gefunden: Es ist zwar so, wie schmeckzilla sagt, jedoch mit einer kleinen zusaetzlichen Feinheit. Es kommt wirklich auf den letzten Ausdruck in der Datei an -- sub-Definitionen werden dabei ignoriert. Folgendes darf man also requiren:
--
my $foo=1;
sub dummy{
print "Hello World";
}
--
aber die erste Zeile darf nicht weggelassen werden.

[quote=havi,23.09.2003, 21:37]Na dann such mal fleißig :)[/quote]
Die Suche war zum Glueck nicht lang, havi :-p