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#+'}->{ digest($_) }++ foreach @{ $rec->{C1} };


sub country     {
        $_[0] =~ m{,\s+(\S+)\.$} && $1;
}
$out->{'C1_country'}->{ country($_) }++ foreach @{ $rec->{C1} };


#$out->{'CR#+'}->{ digest($_) }++ 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'};

$out->{'_debug'}->{records}++;
$out->{'_debug'}->{start_t} ||= time;
$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};
1
2	#$out->{ 'fields +' }->{$_}++ foreach keys %$rec;
3
4	#$out->{ 'years +' }->{ $rec->{PY}->[0] }++;
5
6	#$out->{ 'DT +' }->{ $_ }++ foreach @{ $rec->{DT} };
7
8	#$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
9
10	# FIXME out of memory without Sack::Digest
11	#$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} };
12	$out->{'C1#+'}->{ digest($_) }++ foreach @{ $rec->{C1} };
13
14
15	sub country {
16	$_[0] =~ m{,\s+(\S+)\.$} && $1;
17	}
18	$out->{'C1_country'}->{ country($_) }++ foreach @{ $rec->{C1} };
19
20
21	#$out->{'CR#+'}->{ digest($_) }++ foreach @{ $rec->{CR} };
22
23	my $cr = 1;
24	my $nr = $out->{_debug}->{nr}++;
25	#$out->{'CR +'}->{ "$nr." . $cr++ }++ foreach @{ $rec->{CR} };
26
27	# XXX dump first record
28	#$out->{_debug_rec} \|\|= $rec;
29
30	#push @{ $out->{TI} }, $rec->{TI};
31
32	#push @{ $out->{_debug}->{id} }, $rec->{'000'};
33
34	$out->{'_debug'}->{records}++;
35	$out->{'_debug'}->{start_t} \|\|= time;
36	$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};