andrawaag · June 1, 2013 09:40
diff --git a/BGKMLW25_task7Bonus.pl b/BGKMLW25_task7Bonus.pl
 open EXPRESSIONFILE,    "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
 $counter = 0;
 while ($line = <FILE>){
   @fields = split('\t', $line);
   if ($fields[2]<0){
    $counter = $counter + 1;
 }
   
 }
 print $counter;
	open EXPRESSIONFILE, "N:/FHML_BIGCAT/Bioinformatics/Programming/GeneExpression.txt";
	$counter = 0;
	while ($line = <FILE>){
	@fields = split('\t', $line);
	if ($fields[2]<0){
	$counter = $counter + 1;
	}

	}
	print $counter;