#!/usr/bin/perl
#Working With *.pyc files

sub PYCFILENAMEASSIGNMENT{
$PYCFILE = "$FishSpecies".".pyc";
}

sub OPENPYC{

@dayvalues = ();
open PYCFILE, "/Applications/Bioenergetics/User\ Input\ Data\ Files/$PYCFILE" or die "Cannot open $PYCFILE: $!";
@dailypyc=<PYCFILE>;
shift(@dailypyc);
###I believe the problem is in here.
foreach $line (@dailypyc){
	
	print "\n";
	chomp($line);
	@pyclinevalues=split("\t",$line);
	$day = $pyclinevalues[0];
	chomp($day);
	print "Day $day\t";
	push (@dayvalues,$day);
	shift(@pyclinevalues);
	$totalnumberofpycpreyitems = scalar (@pyclinevalues);
	$scalarcounter = 0;
		
		while($pyclinevalues[0]){
		$pyc = $pyclinevalues[0];
		chomp($pyc);
		print "Endens $pyc\t";
		push (@{pycvalues."$scalarcounter"},$pyc);
		$scalarcounter = $scalarcounter + 1;
		shift(@pyclinevalues);
		}
	
	}
close (PYCFILE);
###
$scalarcounter = 0;
$PYCLININTERPLOOP = 1;
until($PYCLININTERPLOOP > $totalnumberofpycpreyitems){

	@projectedpycvalues = ();
	if(${pycvalues."$scalarcounter"}[1]){
		$projecteddeltay = ${pycvalues."$scalarcounter"}[1] - ${pycvalues."$scalarcounter"}[0];
		chomp ($projecteddeltay);
		$projecteddeltax = $dayvalues[1] - $dayvalues[0];
		chomp ($projecteddeltax);
		$newvalue = ${pycvalues."$scalarcounter"}[0];
		chomp ($newvalue);
		$projectedslope = $projecteddeltay/$projecteddeltax;
		chomp ($projectedslope);
		push (@projectedpycvalues,$newvalue);
		$checker = $dayvalues[0];
		chomp ($checker);
		$checker = $checker + 1;

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

		if($checker == $dayvalues[1]){
			$newvalue = ${pycvalues."$scalarcounter"}[1];
			push (@projectedpycvalues, $newvalue);
			$checker = $checker + 1;
			}
		}

	$PYCLOOPCOUNTER = 2;
	$totalnumberofpycdatapoints = scalar (@pycpvalues);
		until($PYCLOOPCOUNTER > $totalnumberofpycdatapoints){
			if(${pycvalues."$scalarcounter"}[2]){
				$projecteddeltay = ${pycvalues."$scalarcounter"}[2] - ${pycvalues."$scalarcounter"}[1];
				chomp ($projecteddeltay);
				$projecteddeltax = $dayvalues[2] - $dayvalues[1];
				chomp ($projecteddeltax);
				$newvalue = ${pycvalues."$scalarcounter"}[1];
				chomp ($newvalue);
				$projectedslope = $projecteddeltay/$projecteddeltax;
				chomp ($projectedslope);

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

				if($checker == $dayvalues[2]){
					$newvalue = ${pycvalues."$scalarcounter"}[2];
					push (@projectedpycvalues, $newvalue);
					$checker = $checker + 1;
					}
			}

		shift(@dayvalues);
		shift(@pycvalues);
		$PYCLOOPCOUNTER = $PYCLOOPCOUNTER +1;
		}

	print "@projectedpycvalues\n\n";
	$totalnumberofdays = scalar (@projectedpycvalues);
	
	$day = 1;
	foreach $value (@projectedpycvalues){
		chomp($value);
		$dailypyctable{$day} = $value; 
		$day = $day + 1;
		}
	$scalarcounter = $scalarcounter + 1;
	%{dailypyctable."$scalarcounter"} = %dailypyctable;
	$PYCLININTERPLOOP = $PYCLININTERPLOOP + 1;
	}
}

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