Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re^2: PROTEIN FILE help me pleaseee

by Anonymous Monk
on Jan 31, 2013 at 04:21 UTC ( #1016202=note: print w/replies, xml ) Need Help??

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1016202]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2018-06-22 19:25 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.