Stichwort Glob.
my $ref = readini(*DATA);
In der Subfunktion kannst Du auch prüfen, ob ein FileHandle oder eine Datei übergeben wurde:
Testen ob ein Handle oder eine Datei übergeben wurde
my $fh;
if(defined fileno $fx){
$fh = $fx;
}
else{
open($fh, $fx) || return;
}
>
> Hotte
Also ich möcte nicht lesen, das Problem ist wie ich schrieb, dass öffnen der Datei mit OPEN und das speichern des Filehandlers in einer Variablen des Packages.
Diesen Filehandler möchte ich zur Ausgabe (nicht einlesen) in einer Unterfunktion weiterverwenden.