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 Sack::Digest
#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} };
#$out->{'C1#+'}->{ $_ }++ foreach @{ $rec->{C1} };


#$out->{'C1_country+'}->{ m{,\s?([^,]+)\.$} && $1 }++ foreach @{ $rec->{C1} };

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

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

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

#my $cr = 1;
#my $nr = $out->{_debug}->{nr}++;
#$out->{'CR +'}->{ "$nr." . $cr++ }++ foreach @{ $rec->{CR} };

# XXX dump first record
#$out->{_debug_rec} ||= $rec;

#push @{ $out->{TI} }, $rec->{TI};

#push @{ $out->{_debug}->{id} }, $rec->{'000'};

if (0) {
$out->{'_debug'}->{records}++ if $rec;
$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	160	$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };
7	dpavlin	1
8	dpavlin	147	#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
9	dpavlin	2
10	dpavlin	47	# FIXME out of memory without Sack::Digest
11	dpavlin	30	#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} };
12	dpavlin	115	#$out->{'C1#+'}->{ $_ }++ foreach @{ $rec->{C1} };
13	dpavlin	47
14
15	dpavlin	147	#$out->{'C1_country+'}->{ m{,\s?([^,]+)\.$} && $1 }++ foreach @{ $rec->{C1} };
16	dpavlin	47
17	dpavlin	115	#$out->{'CR#+'}->{ $_ }++ foreach @{ $rec->{CR} };
18	dpavlin	28
19	dpavlin	147	#$out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };
20
21			#$out->{'CR'}->{ $_ }++ foreach @{ $rec->{CR} };
22
23			#my $cr = 1;
24			#my $nr = $out->{_debug}->{nr}++;
25	dpavlin	30	#$out->{'CR +'}->{ "$nr." . $cr++ }++ foreach @{ $rec->{CR} };
26
27	dpavlin	1	# XXX dump first record
28	dpavlin	5	#$out->{_debug_rec} \|\|= $rec;
29	dpavlin	1
30			#push @{ $out->{TI} }, $rec->{TI};
31
32	dpavlin	18	#push @{ $out->{_debug}->{id} }, $rec->{'000'};
33	dpavlin	28
34	dpavlin	147	if (0) {
35	dpavlin	115	$out->{'_debug'}->{records}++ if $rec;
36	dpavlin	28	$out->{'_debug'}->{start_t} \|\|= time;
37			$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};
38	dpavlin	147	}