Hallo Michael,
Mit einer kleinen Funktion kannst du dir aus lokalen Filehandles Variablen erzeugen:
sub return_fh
{
my $filename = shift;
local *FH; # local, nicht my!
(Insbesondere: Überlebt es den Funktionsaufruf?)
Also ueberleben tut local die Funktion nicht. Dafuer sind local und my ja da, damit die Variablen u.a. nach so einer Funktion gleich wieder ins Gras beissen ;-)
arum allerdings hier jetzt local und nicht my ist mir auch nicht so ganz klar. Ich weiss nur dass my schneller ist als local und dass es erst ab Perl 5 verfuegbar ist.
Viele Gruesse
Beate Mielke