/[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 147 by dpavlin, Wed Oct 7 23:21:59 2009 UTC revision 151 by dpavlin, Fri Oct 9 17:11:50 2009 UTC
# Line 14  Line 14 
14    
15  #$out->{'C1_country+'}->{ m{,\s?([^,]+)\.$} && $1 }++ foreach @{ $rec->{C1} };  #$out->{'C1_country+'}->{ m{,\s?([^,]+)\.$} && $1 }++ foreach @{ $rec->{C1} };
16    
 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 }++;  
 }  
   
   
17  #$out->{'CR#+'}->{ $_ }++ foreach @{ $rec->{CR} };  #$out->{'CR#+'}->{ $_ }++ foreach @{ $rec->{CR} };
18    
19  #$out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };  #$out->{'CR+'}->{ $_ }++ foreach @{ $rec->{CR} };
Legend:
Removed from v.147  
changed lines
  Added in v.151
  ViewVC Help
Powered by ViewVC 1.1.26