#!/usr/bin/perl
sub TEMFILENAMEASSIGNMENT{
$TEMFILE = "$FishSpecies".".tem";
}

sub OPENTEM{

@dayvalues = ();
open TEMP, "/Applications/Bioenergetics/User\ Input\ Data\ Files/$TEMFILE" or die "Cannot open $TEMFILE: $!";
@dailytemp=<TEMP>;
shift(@dailytemp);
foreach $line (@dailytemp){
	chomp($line);
	($day,$temp)=split("\t",$line);
	chomp($day);
	chomp($temp);
	print "$day, $temp\n";
	push (@dayvalues,$day);
	push (@tempvalues,$temp);
	}
close (TEMP);

if($tempvalues[1]){
	$projecteddeltay = $tempvalues[1] - $tempvalues[0];
	chomp ($projecteddeltay);
	$projecteddeltax = $dayvalues[1] - $dayvalues[0];
	chomp ($projecteddeltax);
	$newvalue = $tempvalues[0];
	chomp ($newvalue);

	$projectedslope = $projecteddeltay/$projecteddeltax;
	chomp ($projectedslope);
	push (@projectedtempvalues,$newvalue);
	$checker = $dayvalues[0];
	chomp ($checker);
	$checker = $checker + 1;


		if($checker < $dayvalues[1]){
			until($checker == $dayvalues[1]){
				$newvalue = $newvalue + $projectedslope;
				push (@projectedtempvalues,$newvalue);
				$checker = $checker + 1;
				}
			}

		if($checker == $dayvalues[1]){
			$newvalue = $tempvalues[1];
			push (@projectedtempvalues, $newvalue);
			$checker = $checker + 1;
			}
	}

$TEMLOOPCOUNTER = 2;

$totalnumberoftemdatapoints = scalar (@tempvalues);
until($TEMLOOPCOUNTER > $totalnumberoftemdatapoints){
	if($tempvalues[2]){
		$projecteddeltay = $tempvalues[2] - $tempvalues[1];
		chomp ($projecteddeltay);
		$projecteddeltax = $dayvalues[2] - $dayvalues[1];
		chomp ($projecteddeltax);
		$newvalue = $tempvalues[1];
		chomp ($newvalue);
		
		$projectedslope = $projecteddeltay/$projecteddeltax;
		chomp ($projectedslope);

		if($checker < $dayvalues[2]){
			until($checker == $dayvalues[2]){
			$newvalue = $newvalue + $projectedslope;
			push (@projectedtempvalues,$newvalue);
			$checker = $checker + 1;
			}
		}

		if($checker == $dayvalues[2]){
			$newvalue = $tempvalues[2];
			push (@projectedtempvalues, $newvalue);
			$checker = $checker + 1;
			}
		}

	shift(@dayvalues);
	shift(@tempvalues);
	$TEMLOOPCOUNTER = $TEMLOOPCOUNTER +1;
	}

print "@projectedtempvalues";
$totalnumberofdays = scalar (@projectedtempvalues);

$day = 1;
foreach $value (@projectedtempvalues){
	chomp($value);
	$dailytemptable{$day} = $value; 
	$day = $day + 1;
	}

}

print"Species?\n";
chomp($FishSpecies = <STDIN>);
&TEMFILENAMEASSIGNMENT;
&OPENTEM;