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} };

foreach ( @{ $rec->{C1} } ) {
        my $country = $1 if m{,\s?([^,]+)\.$};
        $country =~ s{^.+USA$}{USA};
        $country =~ s{^\w\w\s\d{5}$}{USA};
        $country =~ s{^\w\w$}{USA};
#       $country =~ s{^([A-Z]+)$}{ucfirst($1)}e;
        $country =~ s{^YUGOS.+}{Yugoslavia};
        $out->{'C1_country+'}->{ uc $country }++; 
}


#$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
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#+'}->{ $_ }++ foreach @{ $rec->{C1} };
13
14
15	#$out->{'C1_country+'}->{ m{,\s?([^,]+)\.$} && $1 }++ foreach @{ $rec->{C1} };
16
17	foreach ( @{ $rec->{C1} } ) {
18	my $country = $1 if m{,\s?([^,]+)\.$};
19	$country =~ s{^.+USA$}{USA};
20	$country =~ s{^\w\w\s\d{5}$}{USA};
21	$country =~ s{^\w\w$}{USA};
22	# $country =~ s{^([A-Z]+)$}{ucfirst($1)}e;
23	$country =~ s{^YUGOS.+}{Yugoslavia};
24	$out->{'C1_country+'}->{ uc $country }++;
25	}
26
27
28	#$out->{'CR#+'}->{ $_ }++ foreach @{ $rec->{CR} };
29
30	#$out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };
31
32	#$out->{'CR'}->{ $_ }++ foreach @{ $rec->{CR} };
33
34	#my $cr = 1;
35	#my $nr = $out->{_debug}->{nr}++;
36	#$out->{'CR +'}->{ "$nr." . $cr++ }++ foreach @{ $rec->{CR} };
37
38	# XXX dump first record
39	#$out->{_debug_rec} \|\|= $rec;
40
41	#push @{ $out->{TI} }, $rec->{TI};
42
43	#push @{ $out->{_debug}->{id} }, $rec->{'000'};
44
45	if (0) {
46	$out->{'_debug'}->{records}++ if $rec;
47	$out->{'_debug'}->{start_t} \|\|= time;
48	$out->{'_debug'}->{duration} = time - $out->{'_debug'}->{start_t};
49	}