#!/usr/bin/perl -W

my ($count)=@ARGV;
$count = 1 unless $count;

# Run an empty loop to get a rough approximate of Perl overhead.
my ($null_startuser, $null_startsystem) = times;
for (my ($i) = 1; $i <= $count; $i++) {
}
my ($null_enduser, $null_endsystem) = times;
my ($null_user) = $null_enduser - $null_startuser;
my ($null_system) = $null_endsystem - $null_startsystem;

# Do the differences using RCS
my ($rcs_startuser, $rcs_startsystem) = times;
for (my ($i) = 1; $i <= $count; $i++) {
  system("diff Test.html TestOld.html >/dev/null");
}
my ($rcs_enduser, $rcs_endsystem) = times;
my ($rcs_user)   = $rcs_enduser   - $rcs_startuser   - $null_user;
my ($rcs_system) = $rcs_endsystem - $rcs_startsystem - $null_system;

# Do the differences using Perl software
my ($perl_startuser, $perl_startsystem) = times;
for (my ($i) = 1; $i <= $count; $i++) {
  system("/lib/perl5/site_perl/5.6.1/Algorithm/cdiff.pl Test.html TestOld.html >/dev/null");
}
my ($perl_enduser, $perl_endsystem) = times;
my ($perl_user)   = $perl_enduser   - $perl_startuser   - $null_user;
my ($perl_system) = $perl_endsystem - $perl_startsystem - $null_system;

printf("Times   via RCS  via Perl\n");
printf("System  % 7.3f  % 7.3f\n", $rcs_system, $perl_system);
printf("User    % 7.3f  % 7.3f\n", $rcs_user, $perl_user);
printf("Total   % 7.3f  % 7.3f\n", $rcs_system + $rcs_user, $perl_system + $perl_user);