Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^5: Perl 5.34 is released

by 1nickt (Abbot)
on May 23, 2021 at 12:53 UTC ( #11132923=note: print w/replies, xml ) Need Help??


in reply to Re^4: Perl 5.34 is released
in thread Perl 5.34 is released

"the post you downvoted"

Nope again. (Update for the slow-to-comprehend: I did not downvote the post you linked to.)


The way forward always starts with a minimal test.

Replies are listed 'Best First'.
Re^6: Perl 5.34 is released
by LanX (Sage) on May 23, 2021 at 14:29 UTC
    > again

    Orly?

    So please explain!

    $ perl -Mstrict -wE 'my $str = "foobar"; say 1 if $str =~ /{,3}/; say +$]' 5.028002 $

    (Update perl version added)

    update

    >perl -Mstrict -wE "my $str = 'foobar'; say 1 if $str =~ /{,3}/; say $ +],':',$^O" 5.032001:MSWin32

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery

      I would guess there's a special case when the brace is the first character in the regex.

      $ perl -wE 'say $]; say "Match literal" if "{,3}" =~ m<{,3}> && "x" !~ + m<{,3}>;' 5.030001 Match literal $ perl -wE 'say $]; say "Match space" if " {,3}" =~ m< {,3}> && "x" !~ + m< {,3}>;' Unescaped left brace in regex is illegal here in regex; marked by <-- +HERE in m/ { <-- HERE ,3}/ at -e line 1.
        What's happening is that the space must be repeated.

          $ perl -wE 'say $]; say "Match space" if " " =~ m< {0,3}>' 5.028002 Match space $

        Your error is thrown because {,3} is illegal as quantifier for Perl <5.34

        Cheers Rolf
        (addicted to the Perl Programming Language :)
        Wikisyntax for the Monastery

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11132923]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (2)
As of 2021-10-16 03:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My first memorable Perl project was:







    Results (69 votes). Check out past polls.

    Notices?