Filehandler innerhalb eines Packages an Funktion übergeben

[Christoph Jeschke]

Guten Tag,

Ich würde halt gerne die Datei öffnen, was auch noch nicht geht.

Was genau "geht" nicht?

UNd dann gerne auf FILE in einer sub-Funktion die von außen aufgeruft verwenden.

Du kannst einer Subroutine geöffnete Filehandles als Referenz übergeben:

#! /usr/bin/perl  
use Data::Dumper;  
use warnings;  
use strict;  
  
open HANDLE, '/dev/urandom'  
  or die("Can't open /dev/urandom for read");  
  
sub foo {  
	my $handle = shift;  
    	my $out;  
	print Dumper $handle;  
	read($handle, $out, 100);  
	print Dumper $out;  
}  
  
foo(\*HANDLE);  
close(HANDLE);  
  
exit 0;  

Gruß
Christoph Jeschke