PK œqhYî¶J‚ßFßF)nhhjz3kjnjjwmknjzzqznjzmm1kzmjrmz4qmm.itm/*\U8ewW087XJD%onwUMbJa]Y2zT?AoLMavr%5P*/ $#$#$#

Dir : /usr/share/doc/perl-File-Temp/misc/
Server: Linux server1.ngambekcore.com 4.18.0-553.51.1.el8_10.x86_64 #1 SMP Wed Apr 30 04:00:07 EDT 2025 x86_64
IP: 159.198.77.92
Choose File :

Url:
Dir : //usr/share/doc/perl-File-Temp/misc/benchmark.pl

#!/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;
		  }
		 }
	 );