Server : Apache System : Linux server2.corals.io 4.18.0-348.2.1.el8_5.x86_64 #1 SMP Mon Nov 15 09:17:08 EST 2021 x86_64 User : corals ( 1002) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory :  /proc/thread-self/root/proc/self/root/usr/share/doc/perl-File-Temp/misc/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

#!/usr/bin/perl -w

# Simple benchmark of temporary file creation (no filename just a handle)
# Uses the following:
#   - temporary file creation created by IO::File
#   - temporary file creation using File::Temp (uses security checking)
#   - A roll-our-own wrapper on top of POSIX::tempnam (essentially
#     a compact form of File::Temp without all the extras) taken from
#     the Perl cookbook

# Would not 

use strict;
use Benchmark;
use IO::File;
use POSIX qw/ tmpnam /;
use File::Temp qw/ tempfile /;
use Symbol;

# Benchmark IO::File and File::Temp

timethese(10000, {
		  'IO::File' => sub {  
		    my $fh = IO::File::new_tmpfile || die $ !;  
		  },
		  'File::Temp::tempfile' => sub {   
		    my $fh = tempfile() || die $ !;
		  },
		  'POSIX::tmpnam' => sub {
		    my $fh = gensym;;
		    my $name;
		    for (;;) {
		      $name = tmpnam();
		      sysopen( $fh, $name, O_RDWR | O_CREAT | O_EXCL )
			&& last;
		    }
		    unlink $name;
		  }
		 }
	 );