blob: cfad6447a4c8940ad3fe0c11a682e7b9ccdb846f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!@perl@
#
# $NetBSD: hello.pl,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
#
use Parallel::Pvm;
use File::Basename;
$mytid = Parallel::Pvm::mytid ;
printf "My task ID is %x\n", $mytid;
# spawn 1 copy of "hello_other"
$cmd="@exampledir@/hello_other.pl";
($ntask, @tids) = Parallel::Pvm::spawn($cmd, 1);
print "ntask = $ntask\n";
print "tids = @tids\n";
if ($ntask == 1) {
# receive a message from the task we have spawned
$bufid=Parallel::Pvm::recv();
if ($bufid >= 0) {
($info,$bytes,$tag,$stid) = Parallel::Pvm::bufinfo($bufid) ;
print "info = $info\n";
print "bytes = $bytes\n";
print "tag = $tag\n";
printf "stid = %x\n",$stid;
$str = Parallel::Pvm::unpack;
printf "from t%x: \"%s\"\n",$stid,$str;
}
} else {
printf "can't start hello_other\n";
}
Parallel::Pvm::exit();
|
