Simple regex question

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

Replies are listed 'Best First'.
Re: Simple regex question by BrowserUk (Patriarch) on Sep 28, 2012 at 18:13 UTC
Almost exactly the way you described it: `print "$_: ", /^\w+$/ && !/^\d+$/ ? 'Good' : 'Bad' for qw[ abc a1c 1b3 + 123 ];; abc: Good a1c: Good 1b3: Good 123: Bad` [download] Or if you insist on a single regex: `print "$_: ", /^(?=.*[a-zA-z])\w+$/ ? 'Good' : 'Bad' for qw[ abc a1c 1 +b3 123 ];; abc: Good a1c: Good 1b3: Good 123: Bad` [download] Though it is doubtful if it is any more efficient; and is certainly less clear. 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. RIP Neil Armstrong	[reply] [d/l] [select]
Re: Simple regex question by bart (Canon) on Sep 29, 2012 at 09:05 UTC
`/^(?=.[a-z])\w+$/i` [download] (translation: all word characters, but at least a letter) You don't say if you think underscores are acceptable... `/^(?=.[a-z])(?!.*_)\w+$/i` [download] (translation: All word characters, but at least a letter, an no underscore) There.	[reply] [d/l] [select]