#!/usr/bin/perl -w

if ($#ARGV != 3)
	{
	print "Usage $0 <result file> <Algorithm(SHA1/MD5)> <msgsizelimit> <interval>";
	exit;
	}
$resultfile = $ARGV[0];
$algo = $ARGV[1];
$msgsizelimit = $ARGV[2];
$interval = $ARGV[3];

open RESFILE, "$resultfile" or die "Error opening $resultfile for reading";
@alllines = <RESFILE>;
open GRAPHFILE, ">$resultfile.dat" or die "Error opening $resultfile.dat for writing";

#Repeat for all the message size in given range
$i = 0;
for ($msgsize = 0; $msgsize <= $msgsizelimit; $msgsize+=$interval)
	{
	if ($alllines[$i] =~ /^Time\s*for\s*$algo\s*=\s*(\d+)/)
		{
		$time = $1;
		print GRAPHFILE "$msgsize $time\n";
		}
	$i++;
	}