Re^2: subroutine help

in reply to Re: subroutine help
in thread subroutine help

Consider the following minor modifications:

'Co' => 58.933195

my @array = $form =~ /[A-Z][a-z]*\d*/g;

if ($element =~ /([A-Z][a-z]*)(\d*)/) {

my $mult = $2 || 1;
$weight += ($eweight*$mult);
print STDERR "Adding $1 ($eweight)* $mult\n";
[download]

Run on CoCO2:

Adding Co (58.933195)* 1
Adding C (12)* 1
Adding O (16)* 2
Molecule: Co C O2
Weight of Co C O2 : 102.933195
[download]

Comment on Re^2: subroutine help Select or Download Code

In Section Seekers of Perl Wisdom