/[Sack]/trunk/bin/sack.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/bin/sack.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5 by dpavlin, Mon Sep 21 15:36:47 2009 UTC revision 6 by dpavlin, Mon Sep 21 15:41:30 2009 UTC
# Line 12  use Getopt::Long; Line 12  use Getopt::Long;
12  my $path   = '/data/isi/full.txt';  my $path   = '/data/isi/full.txt';
13  my $limit  = 10000;  my $limit  = 10000;
14  my $offset = 0;  my $offset = 0;
15    my @views;
16    
17    
18  GetOptions(  GetOptions(
19          'path=s'   => \$path,          'path=s'   => \$path,
20          'offset=i' => \$offset,          'offset=i' => \$offset,
21          'limit=i'  => \$limit,          'limit=i'  => \$limit,
22            'view=s'   => \@views,
23  ) or die $!;  ) or die $!;
24    
25  my $t = time;  my $t = time;
# Line 45  mkdir 'out' unless -e 'out'; Line 47  mkdir 'out' unless -e 'out';
47  our $out;  our $out;
48    
49  sub run_views {  sub run_views {
50          my @views = glob 'views/*.pl';          @views = sort glob 'views/*.pl' unless @views;
51          warn "# views ", dump @views;          warn "# views ", dump @views;
52    
53          foreach my $view ( @views ) {          foreach my $view ( @views ) {
Legend:
Removed from v.5  
changed lines
  Added in v.6
  ViewVC Help
Powered by ViewVC 1.1.26