Alternate command for tmpnam

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

Hi please help me with providing alternative command/method for tmpnam to create a temporary file name in perl script

#!/usr/bin/perl

use Fcntl;
use POSIX qw(tmpnam);
use POSIX qw(ceil floor);

use Cwd;

use IPC::Open2;

use POSIX qw(strftime);

use Socket qw(:DEFAULT :crlf);

$tmpname = tmpnam();

print $tmpname;

$tmpname = $tempdir."V".(split /V/, $tmpname)[-1].".icd"; print $tmpna
+me;
[download]

2021-09-01 Discipulus added code tags

Comment on Alternate command for tmpnam Download Code

Replies are listed 'Best First'.
Re: Alternate command for tmpnam by Corion (Patriarch) on Sep 01, 2021 at 06:57 UTC
Have a look at File::Temp: `use File::Temp 'tempfile'; my ($fh, $filename) = tempfile();` [download]	[reply] [d/l]
Re: Alternate command for tmpnam by Discipulus (Canon) on Sep 01, 2021 at 07:20 UTC
Hello kishore05 and welcome to the monastery and to the wonderful world of perl! Please follow Corion's advice and also, please put `<code> ..`</code> tags around your snippet. You can also be interested into `sysopen` function in junction with `O_CREAT` flag: you can cycle various file names until it returns not an error. L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l] [select]
Re: Alternate command for tmpnam by Anonymous Monk on Sep 01, 2021 at 11:11 UTC
https://metacpan.org/pod/Path%3A%3ATiny#tempfile,-tempdir `$temp = Path::Tiny->tempfile( "kishore05vXXXXXXXX", SUFFIX => ".icd" ) +;` [download]	[reply] [d/l]