Why ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix); doesn't work...

[Luis Angel Fdez. Fdez.]

Hi!

Why ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix); doesn't work
as I think it has?

I have:

use File::Temp qw/ :mktemp /;

and then

my $template = "baysTempFileXXXX";
my ($fh_bays, $bays_temp) = mkstemps($template, ".info") || die("Could
not create temporary file.\n");

The program doesn't dies so I guess mkstemps creates the temp file,
but...

print $bays_temp."\n";

gives me:

Use of uninitialized value in concatenation (.) or string at ./
upload.pl line 87, <IF> line 6.

And line 87 is the line above (the one with the print).

That code is basically a copy'n'paste from
http://search.cpan.org/~jhi/perl-5.8.0/lib/File/Temp.pm so I think I'm
doing something wrong but I don't know what.

Thanks in advance.

Bye!

 

[anno4000]

Hi!

Why ($fh, $file) = mkstemps( "tmpfileXXXXXX", $suffix); doesn't work
as I think it has?

I have:

use File::Temp qw/ :mktemp /;

and then

my $template = "baysTempFileXXXX";
my ($fh_bays, $bays_temp) = mkstemps($template, ".info") || die("Could

You have a compound problem of context and precedence here. "||" has
higher precedence than "=", so this is interpreted as

my ($fh_bays, $bays_temp) =
( mkstemps($template, ".info") || die(...));

That puts mkstemp() into scalar context, which means it returns only
the file handle and not the name. So $bays_temp remains undefined,
as you have noted.

Use the lower-precedence "or" instead of "||" and all will be well.

Anno