trunk/bin/lorry.pl

#!/usr/bin/perl

use warnings;
use strict;

use Data::Dump qw(dump);
use File::Slurp;

use lib 'lib';
use Sack::From;
use Sack::Lorry;
use Sack::Color;
use Sack;

use Getopt::Long;
use Time::HiRes qw(time);


my $view   = 'views/00.demo.pl';
my $limit  = 0;
my $cloud;

my $install = 0;


GetOptions(
        'view=s'  => \$view,
        'limit=i' => \$limit,
        'cloud=s' => \$cloud,

        'install+' => \$install,
) or die $!;


my $lorry = Sack::Lorry->new( view => $view, cloud => $cloud );

my $from  = Sack::From->new(
        path => '/data/isi/full.txt',
        limit => $limit * $lorry->cloud_size,
);

duration 'pre-load finished';

$lorry->start_nodes;

duration 'cloud up';

if ( $install ) {
        $lorry->update_node( $_ ) foreach $lorry->connected;
        duration 'install finished';
}

$lorry->load_nodes( $from );

duration 'load finished';


our $out;
our $cmd;

do {
        print "sack> ";
        $cmd = <STDIN>;
        last unless defined $cmd; # CTRL+D
        chomp($cmd);
} while $lorry->command($cmd);

warn "exit all nodes\n";
$lorry->send_to_all( { exit => 1 } );

duration 'total usage';

1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use Data::Dump qw(dump);
7	use File::Slurp;
8
9	use lib 'lib';
10	use Sack::From;
11	use Sack::Lorry;
12	use Sack::Color;
13	use Sack;
14
15	use Getopt::Long;
16	use Time::HiRes qw(time);
17
18
19	my $view = 'views/00.demo.pl';
20	my $limit = 0;
21	my $cloud;
22
23	my $install = 0;
24
25
26	GetOptions(
27	'view=s' => \$view,
28	'limit=i' => \$limit,
29	'cloud=s' => \$cloud,
30
31	'install+' => \$install,
32	) or die $!;
33
34
35	my $lorry = Sack::Lorry->new( view => $view, cloud => $cloud );
36
37	my $from = Sack::From->new(
38	path => '/data/isi/full.txt',
39	limit => $limit * $lorry->cloud_size,
40	);
41
42	duration 'pre-load finished';
43
44	$lorry->start_nodes;
45
46	duration 'cloud up';
47
48	if ( $install ) {
49	$lorry->update_node( $_ ) foreach $lorry->connected;
50	duration 'install finished';
51	}
52
53	$lorry->load_nodes( $from );
54
55	duration 'load finished';
56
57
58	our $out;
59	our $cmd;
60
61	do {
62	print "sack> ";
63	$cmd = <STDIN>;
64	last unless defined $cmd; # CTRL+D
65	chomp($cmd);
66	} while $lorry->command($cmd);
67
68	warn "exit all nodes\n";
69	$lorry->send_to_all( { exit => 1 } );
70
71	duration 'total usage';
72