Directory of c:\test

03/05/06  02:45p            10,400,001 10000k.txt
03/05/06  02:44p             1,040,000 1000k.txt
03/05/06  02:42p               104,001 100k.txt
               3 File(s)     11,544,002 bytes
                             95,741,952 bytes free


c:\test>255837 100k.txt
Read to array
Read forward
Read backward
Tie::File
1 trial of read-to-array (150.000ms total)

1 trial of read-forward (91ms total)

1 trial of File::ReadBackwards (10ms total)

1 trial of Tie::File (580ms total)

c:\test>255837 1000k.txt
Read to array
Read forward
Read backward
Tie::File
1 trial of read-to-array (1.071s total)

1 trial of read-forward (942ms total)

1 trial of File::ReadBackwards (10ms total)

1 trial of Tie::File (6.359s total)

c:\test>255837 10000k.txt
Read to array
Read forward
Read backward
Tie::File
1 trial of read-to-array (10.475s total)

1 trial of read-forward (10.165s total)

1 trial of File::ReadBackwards (10ms total)

1 trial of Tie::File (66.065s total)

##</code><code>##

#! perl -slw
use strict;
use File::ReadBackwards;
use Tie::File;
use Benchmark::Timer;
my $t = new Benchmark::Timer;

my $filename = $ARGV[0];

print 'Read to array';
$t->start('read-to-array');
{
	open FH, '<', $filename or die $!;
	my @file = <FH>;
	close FH;
	my ($first, $last) = @file[0,-1];
}
$t->stop('read-to-array');

print 'Read forward';
$t->start('read-forward');
{
	open FH, '<', $filename or die $!;
	my $first = <FH>;
	my $last= <FH> while not eof;
	$last = $first unless $last;
	close FH;
}
$t->stop('read-forward');

print 'Read backward';
$t->start('File::ReadBackwards');
{
	open FH, '<', $filename or die $!;
	my $first = <FH>;
	close FH;
	my $last = File::ReadBackwards->new($filename)->readline;
}
$t->stop('File::ReadBackwards');

print 'Tie::File';
$t->start('Tie::File');
{
	tie my @tied, 'Tie::File', $filename;
	my ($first, $last) = @tied[0,-1];
	untie @tied;
}
$t->stop('Tie::File');

$t->report;