How to delete letters and special characters from a steering

sharifeee01 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How to delete letters and special characters from a steering by davido (Cardinal) on Mar 05, 2014 at 02:30 UTC
Does your data's format have a name? Maybe there's already a tool that correctly interprets it. Is your data always in the form of `identifier=number`? In such a case, split (possibly `(split /=/, $string, 2)[1]`) or `m/^[^=]+([\de.+-]+)$/` Is the number always in scientific notation? Specifics lead to better answers. Dave	[reply] [d/l] [select]
Re: How to delete letters and special characters from a steering by Kenosis (Priest) on Mar 05, 2014 at 01:39 UTC
What have you tried? Consider either `split`ting the string on `=` and just use the second element from the `split` or use a regex to capture all after the `=`. `s/steering/string/g` ?	[reply] [d/l] [select]
Re: How to delete letters and special characters from a steering by AnomalousMonk (Archbishop) on Mar 05, 2014 at 18:00 UTC
An alternative approach to eliminating everything you don't want from a string is to capture only what you do want: it's often easier to define what you want than what you don't. Consider: `c:\@Work\Perl>perl -wMstrict -le "use Regexp::Common qw(number); ;; my $str = 'name=0.5e-7,noodle=123.0e5,niddle=1.2,noddle=9'; ;; my $number = qr{ (?<! \d) $RE{num}{real} (?! \d) }xms; ;; my @numbers = $str =~ m{ $number }xmsg; printf qq{'$_' } for @numbers; " '0.5e-7' '123.0e5' '1.2' '9'` [download] See Regexp::Common.	[reply] [d/l]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks