Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re^2: Rakudo Perl 6 and MoarVM Performance Advances

by Mouq (Initiate)
on Sep 05, 2014 at 06:39 UTC ( [id://1099632]=note: print w/replies, xml ) Need Help??


in reply to Re: Rakudo Perl 6 and MoarVM Performance Advances
in thread Rakudo Perl 6 and MoarVM Performance Advances

FWIW, perl6 -ne 'say ~$0 if m/(<<\w**5>>)/' … is much faster. Something likely needs to be optimized in Match.gist. It's still much slower than Perl 5

Replies are listed 'Best First'.
Re^3: Rakudo Perl 6 and MoarVM Performance Advances
by Mouq (Initiate) on Sep 05, 2014 at 06:49 UTC

    Additionally, appending  for lines gives a significant gain over using -n, so that needs works as well.

    EDIT: I agree that '-n' should be what is used here, I was moreso posting in the interest of figuring out why that's so slow. I just made a PR which seems to bring the time for '-n' to be more like that of 'for lines'

      It could be argued you're then comparing different things. The original is strictly a comparison of the equivlaent Perl one-liners.

        They are not quite equivalent. say $0 actually dumps the whole match tree of that capture (something that doesn't even exist in Perl 5), it just happens to be a single string in this case. Still the code that is behind it is must consider the general case.

        It shouldn't make such a big difference, though.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2024-04-25 14:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found