in reply to Use of do() to run lots of perl scripts
I'd say that do() is a little faster. The script that was being called/shelled out to is just a few lines and is rather irrelevant:
Benchmark: timing 100000 iterations of do, sys... do: 4 wallclock secs ( 2.91 usr + 0.82 sys = 3.73 CPU) @ 26 +809.65/s (n=100000) sys: 441 wallclock secs ( 1.65 usr 19.06 sys + 304.06 cusr 117. +50 csys = 442.27 CPU) @ 226.11/s (n=100000)
Rate sys do sys 223/s -- -99% do 26110/s 11617% --
Benchmark script:
use warnings; use strict; use Benchmark qw(timethese cmpthese); use lib '.'; timethese( 100000, { do => sub { do 'script.pl' }, sys => sub { system 'perl script.pl' }, } ); cmpthese( 100000, { do => sub { do 'script.pl' }, sys => sub { system 'perl script.pl' }, } );
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Use of do() to run lots of perl scripts
by choroba (Cardinal) on Mar 02, 2021 at 20:16 UTC | |
by LanX (Saint) on Mar 03, 2021 at 23:59 UTC | |
by jcb (Parson) on Mar 04, 2021 at 03:06 UTC | |
Re^2: Use of do() to run lots of perl scripts
by LanX (Saint) on Mar 02, 2021 at 18:44 UTC | |
by jcb (Parson) on Mar 03, 2021 at 03:29 UTC | |
by LanX (Saint) on Mar 03, 2021 at 10:19 UTC | |
by jcb (Parson) on Mar 04, 2021 at 02:54 UTC |
In Section
Seekers of Perl Wisdom