filehandler stored in hash-ref

jeanluca has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: filehandle stored in hash-ref by moritz (Cardinal) on Dec 10, 2009 at 15:19 UTC
`print { $s->{out} } "test";` [download] That's mentioned at the end of the print documentation.	[reply] [d/l]
Re: filehandler stored in hash-ref by keszler (Priest) on Dec 10, 2009 at 15:20 UTC
`print {$s->{out}} "test";` [download] Update: I was too slow on posting the print, so here's the read: `# because @in = <$s->{in}> won't work my @in = readline($s->{in});` [download]	[reply] [d/l] [select]
Re: filehandler stored in hash-ref by kyle (Abbot) on Dec 10, 2009 at 15:25 UTC
You can get the print to work if you wrap the filehandle in a block. `my $s = {} ; open $s->{out}, '>', 'out' or die "open: $!\n"; print { $s->{out} } "test"; close $s->{out} or die "close: $!\n";` [download] Note that if you're reading from a filehandle in an array, you have to store it in a scalar for the diamond operator to work. `my $fh = $s->{in}; my $line = <$fh>;` [download] If that's too much trouble, you can use readline.	[reply] [d/l] [select]
Re: filehandler stored in hash-ref by ikegami (Patriarch) on Dec 10, 2009 at 15:29 UTC
By the way, it's "file handle". A handle is a means of holding on to resource. A "file handler" would be a piece of code that that applies a process to a file in a situation where you also appply the process to something other than files.	[reply]
Re: filehandler stored in hash-ref by jeanluca (Deacon) on Dec 10, 2009 at 16:04 UTC
thnx alot! also for explaining that its a handle not a handler :) One last (almost related) thing. I'm using Tie::Hash, so if the programs dies (because it cannot open the file), the DESTROY sub is called: `sub DESTROY { my $self = shift ; if ( $self->{out} && $self->{out}->opened() ) { ... do stuff .... close $self->{out} ; } }` [download] $self->{out} is the filehandle mentioned in my first post. Unfortunatly this generates the following `(in cleanup) Can't locate object method "opened" via package "IO::Hand +le" at modules/MyTH.pm line 29.` [download] So the question is how do I test if a filehandle is open ?	[reply] [d/l] [select]
Re^2: filehandler stored in hash-ref by ikegami (Patriarch) on Dec 10, 2009 at 16:26 UTC
Perhaps you forgot to load IO::Handle...	[reply]
Re^3: filehandler stored in hash-ref by jeanluca (Deacon) on Dec 10, 2009 at 16:58 UTC
thats it! But, if I see this `(in cleanup) Can't locate object method "opened" via package "IO::Hand +le"` [download] I would say IO::Handle is already loaded, because its already using this package !	[reply] [d/l]
Re^4: filehandler stored in hash-ref by ikegami (Patriarch) on Dec 10, 2009 at 17:04 UTC
Re^4: filehandler stored in hash-ref by kyle (Abbot) on Dec 10, 2009 at 17:05 UTC
Re^4: filehandler stored in hash-ref by jeanluca (Deacon) on Dec 10, 2009 at 17:22 UTC


P is for Practical
	PerlMonks