trunk/views/00.demo.pl


#$out->{ 'fields +' }->{$_}++ foreach keys %$rec;

#$out->{ 'years +' }->{ $rec->{PY}->[0] }++;

#$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };

#$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;

#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};
1	dpavlin	1
2	dpavlin	28	#$out->{ 'fields +' }->{$_}++ foreach keys %$rec;
3	dpavlin	1
4	dpavlin	28	#$out->{ 'years +' }->{ $rec->{PY}->[0] }++;
5	dpavlin	1
6	dpavlin	28	#$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };
7	dpavlin	1
8	dpavlin	28	#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
9	dpavlin	2
10	dpavlin	28	# FIXME out of memory without md5
11			#$out->{'C1 +'}->{ md5($_) }++ foreach @{ $rec->{C1} };
12			$out->{'CR +'}->{ md5($_) }++ foreach @{ $rec->{CR} };
13
14	dpavlin	1	# XXX dump first record
15	dpavlin	5	#$out->{_debug_rec} \|\|= $rec;
16	dpavlin	1
17			#push @{ $out->{TI} }, $rec->{TI};
18
19	dpavlin	18	#push @{ $out->{_debug}->{id} }, $rec->{'000'};
20	dpavlin	28
21			$out->{'_debug'}->{records}++;
22			$out->{'_debug'}->{start_t} \|\|= time;
23			$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};