Re^3: Undefined value as a symbol reference

It looks like this is a version issue. I tracked down the 5.8.0 documentation, and according to that version of perlopentut, it looks like three-argument open and indirect file handles were not yet implemented. You could try to use IO::Handle, or stick with bare word file handles, e.g.

open (INFILE, 'templateHosts' ) or die "can't open file $!";
[download]

or explicitly define your glob with Symbol:

use Symbol;

my $INFILE = gensym;
open ($INFILE, 'templateHosts' ) or die "can't open file $!";
[download]

You'll probably have to explicitly close your filehandle assuming you want that done before end of execution. I'd probably go for the last option, as it's the closest to modern syntax. Actually, I'd try and raise enough fuss to upgrade to a modern version of Perl, but I assume that's not an available option....

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Comment on Re^3: Undefined value as a symbol reference Select or Download Code

Replies are listed 'Best First'.
Re^4: Undefined value as a symbol reference by Anonymous Monk on Jul 21, 2014 at 22:12 UTC
It looks like this is a version issue. I tracked down the 5.8.0 documentation, and according to that version of perlopentut, it looks like three-argument open and indirect file handles were not yet implemented. No, the code posted only requires perl 5.6.0 If OP is getting an error he is not using perl 5.8.0	[reply]
Re^5: Undefined value as a symbol reference by kennethk (Abbot) on Jul 21, 2014 at 23:48 UTC
Looks like old perldeltas confirm your assertion: http://search.cpan.org/dist/perl-5.6.0/pod/perldelta.pod#File_and_directory_handles_can_be_autovivified http://search.cpan.org/dist/perl-5.6.0/pod/perldelta.pod#open%28%29_with_more_than_two_arguments Symbol was already CORE in the earliest version I could easily track down the docs for (5.003_7). Raises the question of where the OP got his version string; perhaps he'll be kind enough to post the output of `perl -e 'print "$]\n"'`. #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.	[reply] [d/l]
Re^6: Undefined value as a symbol reference by Anonymous Monk on Jul 22, 2014 at 00:09 UTC
:) Not my assertion :) perlver - The Perl Minimum Version Analyzer	[reply]
Re^7: Undefined value as a symbol reference by link867 (Initiate) on Jul 22, 2014 at 13:43 UTC
Re^8: Undefined value as a symbol reference by Anonymous Monk on Jul 22, 2014 at 17:34 UTC
Some notes below your chosen depth have not been shown here
Re^6: Undefined value as a symbol reference by link867 (Initiate) on Jul 22, 2014 at 13:46 UTC
$perl -e 'print "$]\n"' 5.008 $perl -v This is perl, v5.8.0 built for i586-pc-sco3.2v5.0	[reply]
Re^4: Undefined value as a symbol reference by link867 (Initiate) on Jul 21, 2014 at 20:54 UTC
The use Symbol; option worked like a charm! Thank you so much. And you are right, the team that supports internal servers doesn't let anyone touch "their" servers and never upgrades. -.- I have said something about it and their answer was use this server instead, xxx, but it had the same perl version on it. Anyway thank you for your time, now I can move on with this script!	[reply]