diff options
Diffstat (limited to 'parallel/p5-Parallel-Pvm/files/hello_other.pl')
-rwxr-xr-x | parallel/p5-Parallel-Pvm/files/hello_other.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/parallel/p5-Parallel-Pvm/files/hello_other.pl b/parallel/p5-Parallel-Pvm/files/hello_other.pl new file mode 100755 index 00000000000..5fbc13f3359 --- /dev/null +++ b/parallel/p5-Parallel-Pvm/files/hello_other.pl @@ -0,0 +1,16 @@ +#!@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; + |