016b72a668
Parallel::Pvm is a perl extension for the parallel virtual machine (PVM) message-passing system.
16 lines
353 B
Raku
Executable file
16 lines
353 B
Raku
Executable file
#!@perl@
|
|
#
|
|
# $NetBSD: hello_other.pl,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
|
|
#
|
|
|
|
use Parallel::Pvm;
|
|
use Sys::Hostname;
|
|
my $host = hostname();
|
|
|
|
$ptid = Parallel::Pvm::parent;
|
|
Parallel::Pvm::initsend(PvmDataDefault) ;
|
|
$buf=Parallel::Pvm::pack("Hi from hello_other.pl running on $host");
|
|
Parallel::Pvm::send($ptid,$buf);
|
|
Parallel::Pvm::exit;
|
|
exit 0;
|
|
|