RE: Executing commands in the system via threads

darronm (ukmay) wrote:
> I need to call an executable program multiple times and I
> will then need to process the returns to stdout.
> ...
> However as soon as I change the line above in sub1 to be:
>    my @value = `vcover stats $FileName `;
> The script hangs.

Well, one problem I noted is that you're trying to use the old
'Thread' module.  I tried something similar using 'threads',
and it worked fine:

#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

use threads;

MAIN:
{
    my @thr1 = threads->create(\&sub1, "ls -l /c");
    my @thr2 = threads->create(\&sub1, "ls -l /var");
    my @thr3 = threads->create(\&sub1, "ls -l /usr");

    foreach my $thr (threads->list) {
        my @output = $thr->join();
        print("Thread returned:\n", @output, "\n");
    }
}

exit(0);

### Subroutines ###

sub sub1 {
    my $cmd = shift;
    print "Command: $cmd\n";
    my @output = `$cmd`;
    return (@output);
}

# EOF