Re^7: How to avoid an alphabet and integer next to it in a string?

in reply to Re^6: How to avoid an alphabet and integer next to it in a string?
in thread How to avoid an alphabet and integer next to it in a string?

Input was

my $molform = <STDIN>;
[download]

C6H9 and Output was:

------Please enter single letter elements in caps only------
Enter the molecular formula of the compound = C6H9
Forbidden chars


The molecular weight of the above compound is =
[download]

Comment on Re^7: How to avoid an alphabet and integer next to it in a string? Select or Download Code

Replies are listed 'Best First'.
Re^8: How to avoid an alphabet and integer next to it in a string? by runrig (Abbot) on Mar 21, 2014 at 19:25 UTC
Think about it. How does that help (read again what output I asked for)? When you're trying to determine input and output to something...just print the something... `my $molform = <STDIN>; print "Molform before: [$molform]\n"; s/\s+$//, s/H(?![a-z])\d*//g for $molform; print "Molform after: [$molform]\n";` [download] Although hazylife may have nailed the problem...you need to learn how to provide useful debugging information.	[reply] [d/l]
Re^9: How to avoid an alphabet and integer next to it in a string? by piscean (Acolyte) on Mar 21, 2014 at 19:40 UTC
Using your code, input as C6H9 `------Please enter single letter elements in caps only------ Enter the molecular formula of the compound = C6H9Hg Molform before: [C6H9 ] Molform after: [C6] The molecular weight of the above compound is = 72.0642` [download] Using your code, input as C6H9Hg `------Please enter single letter elements in caps only------ Enter the molecular formula of the compound = C6H9Hg Molform before: [C6H9Hg ] Molform after: [C6Hg] Molform after: [C6Hg] The molecular weight of the above compound is = 272.6542` [download] Thanks a ton! Yes, it worked!	[reply] [d/l] [select]
Re^8: How to avoid an alphabet and integer next to it in a string? by hazylife (Monk) on Mar 21, 2014 at 18:55 UTC
`chomp(my $molform = <STDIN>);`	[reply] [d/l]
Re^9: How to avoid an alphabet and integer next to it in a string? by runrig (Abbot) on Mar 21, 2014 at 19:20 UTC
Forget chomp, just do: `$molform =~ s/\s+$//;` [download]	[reply] [d/l]
Re^10: How to avoid an alphabet and integer next to it in a string? by piscean (Acolyte) on Mar 21, 2014 at 19:26 UTC
`$molform =~ s/H\d*//g;` worked for me except for Hg and He. Yup, I tried `$molform =~ s/\s+$//;` The output is zero	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom