Re^2: Use of do() to run lots of perl scripts

in reply to Re: Use of do() to run lots of perl scripts
in thread Use of do() to run lots of perl scripts

Even with fork "do" is still much faster.

cmpthese(
    -3,
    {
        do    => sub { unless (fork) { do 'script.pl'; exit } wait },
        sys   => sub { system 'perl script.pl' },
    }
);
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

In Section Seekers of Perl Wisdom