recepies/netpipe-tcp/test-all.pl

#!/usr/bin/perl

# usage: test-all.pl hosts

use warnings;
use strict;
use autodie;
use File::Slurp;

chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';

my @hosts = read_file 'hosts';

foreach my $host ( @hosts ) {
        chomp($host);

        foreach my $to ( @hosts ) {
                chomp($to);
                warn "start NPtcp on $to\n";
                system "ssh $to NPtcp &";
        }

        warn "TEST from $host\n";
        system "cat hosts | ssh $host xargs -i NPtcp -h {} -u 1048576 -o /tmp/{}.np";
        system "rsync $host:/tmp/*.np $host/";
}
1	#!/usr/bin/perl
2
3	# usage: test-all.pl hosts
4
5	use warnings;
6	use strict;
7	use autodie;
8	use File::Slurp;
9
10	chdir '/srv/sysadmin-cookbook/recepies/netpipe-tcp/';
11
12	my @hosts = read_file 'hosts';
13
14	foreach my $host ( @hosts ) {
15	chomp($host);
16
17	foreach my $to ( @hosts ) {
18	chomp($to);
19	warn "start NPtcp on $to\n";
20	system "ssh $to NPtcp &";
21	}
22
23	warn "TEST from $host\n";
24	system "cat hosts \| ssh $host xargs -i NPtcp -h {} -u 1048576 -o /tmp/{}.np";
25	system "rsync $host:/tmp/*.np $host/";
26	}