Take digits from a string

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

Replies are listed 'Best First'.
Re: Take digits from a string by johngg (Canon) on Nov 26, 2012 at 17:35 UTC
See `tr` in Quote and Quote like Operators (it is quite a long way down the page so be patient :-). `$ perl -E ' > $str = q{nPqwe=2456fnraqe=13910feoption}; > ( $newStr = $str ) =~ tr{0-9}{}cd; > say $newStr;' 245613910 $` [download] I hope this is helpful. Cheers, JohnGG	[reply] [d/l] [select]
Re: Take digits from a string by ww (Archbishop) on Nov 26, 2012 at 13:03 UTC
Tutorials `perldoc perlretut` and company. Self-help is highly encouraged here!	[reply] [d/l]
Re^2: Take digits from a string by gepebril69 (Scribe) on Nov 26, 2012 at 13:11 UTC
Sure, Regex is the way to do these kind of things. Can be confusing for starters though. Try to look for regexbuddy (Win software) and a tutorial on Youtube. It's very powerful software.	[reply]
Re^3: Take digits from a string by ww (Archbishop) on Nov 26, 2012 at 13:30 UTC
No downvote, but this is rather questionable advice for two reasons: The s/w you recommend is a USD40.00 item Very loosely, PM is about helping folk learn how to help themselves (or to help them learn, period). IMO suggestions leading the OP to read the docs and search the site provide that in a global fashion far better than offering solutions requiring commercial s/w.	[reply]
Re: Take digits from a string by 2teez (Vicar) on Nov 26, 2012 at 13:56 UTC
`"..Is it possible to get this using any regex,pls?.."` Yes, something like so: `my $string = "nPqwe=2456fnraqe=13910feoption"; if ( my @digits = $string =~ m/[0-9]/g ) { print @digits; # print 245613910 }` [download] Please also check perlrequick If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l]
Re: Take digits from a string by rcrews (Novice) on Nov 26, 2012 at 22:33 UTC
Here's the simple solution you asked for: `$string =~ s/[^\d]//g;` [download] But as several people have already mentioned, you really should read the regex docs -- perlretut, perlre, etc. Knowing all about regular expressions will greatly help you process text with Perl.	[reply] [d/l]
Re: Take digits from a string by Anonymous Monk on Nov 26, 2012 at 13:32 UTC
Hello Monks, I have a simple doubt, can anyone pls answer me? Yes, you can answer this yourself in about 1 minute by reading perlintro or perlrequick, and probably perlfaq or perlmonks `[digit string]` digit string -> Number of digits at the end of the string `#!/usr/bin/perl -- use strict; use warnings; use Data::Dump; use Carp::Always; use Regexp::English; my $string = "nPqwe=2456fnraqe=13910feoption"; my $rex = Regexp::English -> remember -> digits -> end ;;;; print "$rex\n"; while( $string =~ m{$rex}g ){ print "$1\n"; } __END__ (?^:(\d+)) 2456 13910` [download]	[reply] [d/l] [select]