/[Sack]/trunk/views/00.demo.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/views/00.demo.pl

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

revision 27 by dpavlin, Tue Sep 22 13:46:41 2009 UTC revision 28 by dpavlin, Tue Sep 22 22:28:40 2009 UTC
# Line 1  Line 1 
1    
2  $out->{ 'fields +' }->{$_}++ foreach keys %$rec;  #$out->{ 'fields +' }->{$_}++ foreach keys %$rec;
3    
4  #$out->{years}->{ $rec->{PY}->[0] }++;  #$out->{ 'years +' }->{ $rec->{PY}->[0] }++;
5    
6  #$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };  #$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };
7    
8  #$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} };  #$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
9    
10    # FIXME out of memory without md5
11    #$out->{'C1 +'}->{ md5($_) }++ foreach @{ $rec->{C1} };
12    $out->{'CR +'}->{ md5($_) }++ foreach @{ $rec->{CR} };
13    
14  # XXX dump first record  # XXX dump first record
15  #$out->{_debug_rec} ||= $rec;  #$out->{_debug_rec} ||= $rec;
# Line 13  $out->{ 'fields +' }->{$_}++ foreach key Line 17  $out->{ 'fields +' }->{$_}++ foreach key
17  #push @{ $out->{TI} }, $rec->{TI};  #push @{ $out->{TI} }, $rec->{TI};
18    
19  #push @{ $out->{_debug}->{id} }, $rec->{'000'};  #push @{ $out->{_debug}->{id} }, $rec->{'000'};
20    
21    $out->{'_debug'}->{records}++;
22    $out->{'_debug'}->{start_t} ||= time;
23    $out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};
Legend:
Removed from v.27  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26