Help for this page

Select Code to Download


  1. or download this
    use File::Temp qw/tempfile/;

...
close $tfh;

# File named $tfn will exist till end of program
  2. or download this
    use File::Basename qw/fileparse/;
use File::Temp qw/tempfile/;
...
my ($tfh,$tfn) = tempfile(DIR=>$dir, TEMPLATE=>'.'.$fn.'_XXXXXXXXXX',
    SUFFIX => $ext, UNLINK=>1 );
...
  3. or download this
    use File::Temp qw/tempdir/;
use File::Basename qw/fileparse/;
...
my $tmpdir = tempdir(DIR=>$dir, TEMPLATE=>'.XXXXXXXXXX', CLEANUP=>1 );
my $tfn = catfile($tmpdir, $fn);
...