Parallel-Pvm
view release on metacpan or search on metacpan
PvmTaskExit PvmTaskHost PvmTaskSelf PvmTaskTrace PvmTraceCode
PvmTraceTid PvmMboxDefault PvmMboxPersistent PvmMboxMultiInstance
PvmMboxOverWritable PvmMboxFirstAvail PvmMboxReadAndDelete
);
# Theese are the badd ones:
# send pack unpack exit recv kill
@EXPORT_OK = qw
(
spawn initsend psend mcast sendsig probe nrecv trecv precv parent
mytid halt catchout tasks config addhosts delhosts bufinfo freebuf
getrbuf getsbuf mkbuf setrbuf setsbuf mstat pstat tidtohost getopt
setopt reg_hoster reg_tasker reg_rm perror notify recv_notify
hostsync recvf recvf_old
joingroup lvgroup bcast freezegroup barrier getinst gettid gsize
siblings
getcontext newcontext setcontext freecontext
Send the data in the active message buffer. Eg.
# Parallel::Pvm::send(-1,-1);
$info = Parallel::Pvm::send ;
# Parallel::Pvm::send($tid,-1);
$info = Parallel::Pvm::send($tid);
$info = Parallel::Pvm::send($tid,$tag);
=item B<Parallel::Pvm::sendsig>
Sends a signal to another PVM process. Eg.
use POSIX qw(:signal_h);
...
$info = Parallel::Pvm::sendsig($tid,SIGKILL);
=item B<Parallel::Pvm::setopt>
Sets various libpvm options. Eg.
$oldval=Parallel::Pvm::setopt(PvmOutputTid,$val);
$oldval=Parallel::Pvm::setopt(PvmRoute,PvmRouteDirect);
=item B<Parallel::Pvm::setrbuf>
tids[i] = SvIV(ST(i));
}
proc_num = tag_num = items-1;
tag = SvIV(ST(tag_num));
RETVAL = pvm_mcast(tids,proc_num,tag);
OUTPUT:
RETVAL
int
pvm_sendsig(tid,sig)
int tid
int sig
int
pvm_probe(tid=-1,tag=-1)
int tid
int tag
int
pvm_recv(tid=-1,tag=-1)
( run in 0.866 second using v1.01-cache-2.11-cpan-71847e10f99 )