Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: MOLECULAR WEIGHT SUM

by pme (Parson)
on Mar 20, 2016 at 21:50 UTC ( #1158380=note: print w/replies, xml ) Need Help??


in reply to MOLECULAR WEIGHT SUM

Hi mbgbioinfo,

I hope this helps.

#!/usr/bin/perl -w use strict; use warnings; my %MWs; %MWs = ( "A" => 71.1, "D" => 115.0, "F" => 147.1, "H" => 137.1, "K" => 128.1, "M" => 131.1, "P" => 97.1, "R" => 156.1, "T" => 101.1, "W" => 186.2, "C" => 103.1, "E" => 129.1, "G" => 57.1, "I" => 113.1, "L" => 113.1, "N" => 114.1, "Q" => 128.1, "S" => 87.1, "V" => 99.1, "Y" => 163.1, "\n" => 0.0 ); my $sum = 0.0; print "Type amino acids.\n"; while ( my $line = <STDIN> ) { chomp $line; last if $line eq ''; my @AA = split '', $line; foreach my $AA (@AA) { unless (defined $MWs{$AA}) { print "'$AA' does not exist\n"; next; } $sum += $MWs{$AA}; } } print "Molecular weight of this peptide is: $sum \n";

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2018-02-25 04:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (312 votes). Check out past polls.

    Notices?