trunk/bin/shards.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib '/srv/Sack/lib';

use Sack;
use Sack::Shards;

Sack::Shards->new(
        path => '/data/isi/full.txt',
        limit => 1000,
);

duration 'sharding finished';
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use lib '/srv/Sack/lib';
7
8	use Sack;
9	use Sack::Shards;
10
11	Sack::Shards->new(
12	path => '/data/isi/full.txt',
13	limit => 1000,
14	);
15
16	duration 'sharding finished';