http://www.perlmonks.org?node_id=1016202


in reply to Re: PROTEIN FILE help me pleaseee
in thread PROTEIN FILE help me pleaseee

Please don't remove the original text of a comment.

But if he keeps it, then teacher will know he cheated

Replies are listed 'Best First'.
Re^3: PROTEIN FILE help me pleaseee
by alessandra (Initiate) on Feb 09, 2013 at 11:16 UTC
    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