#!/usr/bin/perl -w

use strict;

#################################################################################        
#               DEFINIM LES NOSTRES VARIABLES                                   #
#################################################################################

my $input;			#variable on enregistrem el fitxer d'entrada
my $idprot1;			#identificador de la proteina de l'Ensembl
my $gc;				#contingut GC
my $x;				#contador


open(CARACT,"<$ARGV[0]");

$input=$ARGV[0];

print "input: $input\n";

open(OUT,">gchumonlynp.txt");

$x = 0;
my $i = 0;

while (<CARACT>){
    
    
    
    if(/(ENSP.*?)\.\d+\s+(\d+)\s$/){			#expressio regular amb la que seleccionem l'identificador sense punt i el contingut GC
	
	
	$idprot1 = $1;
	$gc = $2;
	
	
	print OUT "$idprot1\t$gc\n";
	
	$i = $i +1;
	$x = $x + 1;
	print "anem treient el punt de la proteina $x\n";
    }
    
}



close (CARACT);
close (OUT);




