trunk/bin/shards.pl

#!/usr/bin/perl

use warnings;
use strict;

use lib '/srv/Sack/lib';

use Sack::Shards;

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

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