> On Sep 8, 2019, at 6:36 PM, Olivier <[email protected]> wrote:
>
> Jim Gibson <[email protected]> writes:
>
>> On Sep 8, 2019, at 3:39 PM, Mike <[email protected]> wrote:
>>>
>>>
>>> It's probably best if you write a short script
>>> that reads a __DATA__ section of data.
>>> Then tell us what it does and what you expected
>>> it to do.
>>>
>>> Off hand I don't see anything wrong with your regex,
>>> but I don't know what you expect it to do.
>>>
>>
>> I expect it to return a positive value if $t contains a number anywhere
>> within it and put that number in the $1 capture variable.
>
> Well, that is not what is in your regex: you look for a decimal number
> ending with 0 or 5, and it must be the last number of the line.
>
> What about something simple like:
>
> /(\d*[05])\D*$/
I prefer the explicit (?:…|…) structure that tells the reader that an alternate
expression is being used. Also, the “zero or more” * operator can be very slow
for long strings.
>
> The Regex Coach is your friend (and works well under wine).
>
> It alsways help to present with some sample data.
If you want to use this regex, then you should test it yourself. I did.
>
> Best regards,
>
> Olivier
>
>>>
>>> Mike
>>>
>>>
>>> On 9/8/2019 4:34 PM, Jim Gibson wrote:
>>>> On Sep 8, 2019, at 1:30 PM, Gautam Desai <[email protected]>
>>>> wrote:
>>>>> Do you guys have any pointers ?
>>>> $t =~ m{
>>>> ( # capture matched number in $1
>>>> \d* # match zero or more decimal digits
>>>> [05] # followed by a '0' or '5'
>>>> ) # end of capture
>>>> (?: # followed by either:
>>>> \D # a non-digit
>>>> | # or
>>>> $ # the end of the string
>>>> )
>>>> }x
>>>>
>>>
>>> --
>>> To unsubscribe, e-mail: [email protected]
>>> For additional commands, e-mail: [email protected]
>>> http://learn.perl.org/
>>>
>>>
>>
>> Jim Gibson
>> [email protected]
>
> --
>
> --
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
> http://learn.perl.org/
Jim Gibson
[email protected]
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
