mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-08 11:52:55 -04:00
17 lines
353 B
Raku
Executable File
17 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;
|
|
|