diff options
Diffstat (limited to 'lib/Temp/File-Temp-0.12/misc')
| -rwxr-xr-x | lib/Temp/File-Temp-0.12/misc/benchmark.pl | 42 | ||||
| -rw-r--r-- | lib/Temp/File-Temp-0.12/misc/results.txt | 33 |
2 files changed, 0 insertions, 75 deletions
diff --git a/lib/Temp/File-Temp-0.12/misc/benchmark.pl b/lib/Temp/File-Temp-0.12/misc/benchmark.pl deleted file mode 100755 index bdea837..0000000 --- a/lib/Temp/File-Temp-0.12/misc/benchmark.pl +++ /dev/null @@ -1,42 +0,0 @@ -#!/usr/local/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; - } - } - ); - - diff --git a/lib/Temp/File-Temp-0.12/misc/results.txt b/lib/Temp/File-Temp-0.12/misc/results.txt deleted file mode 100644 index b73196a..0000000 --- a/lib/Temp/File-Temp-0.12/misc/results.txt +++ /dev/null @@ -1,33 +0,0 @@ -This file contains the results of the File::Temp benchmark script -by File::Temp version, perl version and OS. - -On Windows NT, currently have problems with this benchmark since it -runs into a file limit after a while (this is because unlinking of the -open file is deferred until the end of the program rather than closing -it and unlinking it explcitly round the loop). - -Times are in CPU seconds. - -VERSION PERL OS File::Temp/s IO::File/s POSIX::tmpnam - -0.07 5.6.0 linux(1) 22.4 1.7 2.1 - 5.005_03 linux(1) 33.6 1.6 2.1 - -0.08 5.6.0 linux(1) 8.1 1.7 2.1 - 5.005_03 linux(1) 8.4 1.6 2.1 - - 5.6.0 solaris(2) 32.3 237.0 229.5 - - 5.005_03 dig.unix(3) 153.2 44.9 51.5 - - - - -1. A 600 MHz pentium III running RedHat 6.1 - -2. A Sparc Ultra 1 running Solaris 2.6. /tmp local, /var/tmp on NFS - (/var/tmp is the default temp location on Solaris and is used by - POSIX::tmpnam whereas /tmp is used by File::Temp since that is the - location specified by File::Spec) - -3. DEC 3000 Alpha running digital unix 4.0. |
