$ cat -n prime3.pl
1 #!/usr/bin/perl -I../lib -w
2 # The module Math::Prime::XS isn't installed in the machine
3 # but will be downloaded from some remote server
4 use Math::Prime::XS qw{:all};
5
6 @all_primes = primes(9);
7 print "@all_primes\n";
8
9 @range_primes = primes(4, 9);
10 print "@range_primes\n";
####
$ time perl -MRemote::Use=config,rsyncconfig prime3.pl
receiving file list ... done
>f+++++++++ XS.so
sent 42 bytes received 16141 bytes 10788.67 bytes/sec
total size is 16043 speedup is 0.99
receiving file list ... done
>f+++++++++ XS.bs
sent 42 bytes received 94 bytes 90.67 bytes/sec
total size is 0 speedup is 0.00
receiving file list ... done
>f+++++++++ XS.pm
sent 42 bytes received 5733 bytes 11550.00 bytes/sec
total size is 5635 speedup is 0.98
2 3 5 7
5 7
real 0m2.349s
user 0m0.116s
sys 0m0.060s
##
##
$ time perl -MRemote::Use=config,rsyncconfig prime3.pl
2 3 5 7
5 7
real 0m0.066s
user 0m0.056s
sys 0m0.008s
##
##
$ cat rsyncconfig
package rsyncconfig;
sub getarg {
my ($class, $self) = @_;
return (
host => 'orion:',
prefix => '/tmp/perl5lib/',
command => 'rsync -i -vaue ssh',
ppmdf => '/tmp/perl5lib/.orion.installed.modules',
);
}
1;