$record->{perl} =~ /(^[0-9]*[13579]|rc|patch))/i
?
On 27 May 2014 16:22, David Cantrell <da...@cantrell.org.uk> wrote:
> As part of the nasty mess that is CPANdeps, I have this line of code:
>
> $record->{is_dev_perl} = (
> $record->{perl} =~ /(^5\.(7|9|11|13|15|17|19|21)|rc|patch)/i
> ) ? 1 : 0;
>
> I'd like to not have to remember to add 23 to the list in a year or so's
> time. Can anyone think of a nice way of matching any odd number from 7
> upwards? Obviously it's easy to do in a coupla lines of perl code
> instead of a regex, so I'm asking more out of curiosity than because I
> actually need it.
>
> --
> David Cantrell | Official London Perl Mongers Bad Influence
>
> Today's previously unreported paraphilia is tomorrow's Internet sensation
>
