requesting small regex

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

Replies are listed 'Best First'.
Re: requesting small regex by BrowserUk (Patriarch) on May 07, 2012 at 07:16 UTC
As you probably know, \d+ matches digits. You want the opposite, which conveniently, perl provides as \D. (Note als: \s&\S; \w&\W; etc. ). So: `print for split /\D+/, "13%22%3%43";; 13 22 3 43` [download] Note: This applies to ASCII/ISO data; once you get into the world of Unicrap, you're on your own :( With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]
Re^2: requesting small regex by perl@1983 (Sexton) on May 07, 2012 at 07:28 UTC
How about something like below? Apart from only digits, it also allows alphabets: `perl -e '$a = "ab%13!3&z* Trial"; $a=~s/(\w+)\W+/$1/g; print $a;'` [download]	[reply] [d/l]
Re^2: requesting small regex by thundergnat (Deacon) on May 07, 2012 at 18:11 UTC
If you need to work with Unicrap, er.. Unicode, use Unicode named property assertions. `print for split /\P{Alnum}+/, 'αβζ#!אש<>!&# +1046;ИУ+sdfg.%12'; αβζ אש ЖИУ sdfg 12` [download] Sigh. Imagine that those were not automatically converted to HTML codepoints.	[reply] [d/l]
Re^3: requesting small regex by BrowserUk (Patriarch) on May 07, 2012 at 18:35 UTC
magine that those were not automatically converted to HTML codepoints. Posting (small) quantities of Unicrap is the one time (I think) that `<pre></pre>` tags are justified. I'm guessing that \P is 'not the named class'; and that {Alnum} is alpha-numeric. Is theRE no \P{Numeric}? With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]
Re^4: requesting small regex by thundergnat (Deacon) on May 07, 2012 at 19:10 UTC
Re^2: requesting small regex by Anonymous Monk on May 07, 2012 at 07:21 UTC
lol unicrap i shall remember that! :D p.s: also from uk.. nice wet country huh :(	[reply]
Re^3: requesting small regex by BrowserUk (Patriarch) on May 07, 2012 at 08:52 UTC
uk.. nice wet country huh :( Wet?! Were in the middle of a drought don't'ya know :) (Ya gotta love the optimism of the supermarkets advertising their barBQ stuff on TV :) With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply]
Re: requesting small regex by Anonymous Monk on May 07, 2012 at 07:07 UTC
Hi! any chance someone could give me a small regex to split any non-alphanomeric characters from a string? You should be able to write it yourself after reading http://perldoc.perl.org/perlintro.html#Regular-expressions subsection http://perldoc.perl.org/perlintro.html#More-complex-regular-expressions it should take about 10 seconds `$ perl -MRegexp::English -le " print Regexp::English->new->non_word_char " (?^:\W)` $ perl -MYAPE::Regex::Explain -le " print YAPE::Regex::Explain->new( q/\W/ )->explain " The regular expression: (?-imsx:\W) matches as follows: NODE EXPLANATION ---------------------------------------------------------------------- (?-imsx: group, but do not capture (case-sensitive) (with ^ and $ matching normally) (with . not matching \n) (matching whitespace and # normally): ---------------------------------------------------------------------- \W non-word characters (all but a-z, A-Z, 0- 9, _) ---------------------------------------------------------------------- ) end of grouping ----------------------------------------------------------------------	[reply]
Re^2: requesting small regex by Anonymous Monk on May 07, 2012 at 07:19 UTC
oh thanks, \D seems to have done the trick :)	[reply]