--- trunk/views/00.demo.pl	2009/09/22 21:58:12	27
+++ trunk/views/00.demo.pl	2009/09/22 22:28:40	28
@@ -1,11 +1,15 @@
 
-$out->{ 'fields +' }->{$_}++ foreach keys %$rec;
+#$out->{ 'fields +' }->{$_}++ foreach keys %$rec;
 
-#$out->{years}->{ $rec->{PY}->[0] }++;
+#$out->{ 'years +' }->{ $rec->{PY}->[0] }++;
 
-#$out->{DT}->{ $_ }++ foreach @{ $rec->{DT} };
+#$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };
 
-#$out->{SC}->{ $_ }++ foreach @{ $rec->{SC} };
+#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
+
+# FIXME out of memory without md5
+#$out->{'C1 +'}->{ md5($_) }++ foreach @{ $rec->{C1} };
+$out->{'CR +'}->{ md5($_) }++ foreach @{ $rec->{CR} };
 
 # XXX dump first record
 #$out->{_debug_rec} ||= $rec;
@@ -13,3 +17,7 @@
 #push @{ $out->{TI} }, $rec->{TI};
 
 #push @{ $out->{_debug}->{id} }, $rec->{'000'};
+
+$out->{'_debug'}->{records}++;
+$out->{'_debug'}->{start_t} ||= time;
+$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};