hi!
I have the same problem and i'm going crazy. HELP ME!
My perl program is:
#!/usr/bin/perl -w
print "Please type the file name of the protein sequence data: ";
$proteinfilename = <STDIN>;
chomp $proteinfilename;
unless ( open (PROTEINFILE, $proteinfilename) ) {
print "File \"$proteinfilename\" doesn\'t seem to exist!!\n";
}
$protein = <PROTEINFILE> ;
$empty = " " , (<PROTEINFILE>);
while ( $protein = <PROTEINFILE> ) {
if ( $protein =~ /^>/ ) {
next $protein;
} else {
$protein =~ s/\s//g ;
$union = join ($empty, $protein);
}
};
close PROTEINFILE ;
$quantif = $union;
$count = ($quantif =~ tr/F//);
print "The aminoacid sequence:\n$union\ncontains $count Tryptophan aminoacids\n\n";
the problem is the count!!!!
thank you
Alessandra