/[Sack]/trunk/views/00.demo.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/views/00.demo.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 42 by dpavlin, Thu Sep 24 00:00:39 2009 UTC revision 47 by dpavlin, Thu Sep 24 17:11:17 2009 UTC
# Line 7  Line 7 
7    
8  #$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };  #$out->{'SC +'}->{ $_ }++ foreach @{ $rec->{SC} };
9    
10  # FIXME out of memory without md5  # FIXME out of memory without Sack::Digest
11  #$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} };  #$out->{'C1 +'}->{ $_ }++ foreach @{ $rec->{C1} };
12  $out->{'C1#+'}->{ digest($_) }++ foreach @{ $rec->{C1} };  $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} };  #$out->{'CR#+'}->{ digest($_) }++ foreach @{ $rec->{CR} };
22    
23  my $cr = 1;  my $cr = 1;
Legend:
Removed from v.42  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.26