14 lines
175 B
Perl
14 lines
175 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use DMap;
|
||
|
|
DMap::set_job_servers("localhost", "sammy", "kenny");
|
||
|
|
|
||
|
|
my @foo = dmap { "$_ = " . `hostname` } (1..10);
|
||
|
|
|
||
|
|
print "dmap says:\n @foo";
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|