Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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]
[choroba]: :-) sweet? The main ingredients are vinegar and onion

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2017-11-21 11:13 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (297 votes). Check out past polls.