source:
trunk/tools/validate-composers.pl
@
1130
Last change on this file since 1130 was 763, checked in by , 12 years ago | |
---|---|
File size: 395 bytes |
Line | |
---|---|
1 | open F, '../asma/Docs/Composers.txt' or die; |
2 | 1 until <F> =~ /^Unknown - /; |
3 | <F>; |
4 | my $n; |
5 | my %countries; |
6 | my ($real, $nick, $country) = ''; |
7 | while (<F>) { |
8 | print if $_ le $real; |
9 | if (($real, $nick, $country) = /^(.+?\S, .+?\S|<\?>) - (?:(.+?\S) - )?(.*\S)/) { |
10 | $n++; |
11 | $countries{$country}++; |
12 | } |
13 | else { |
14 | print; |
15 | } |
16 | } |
17 | print "Composers: $n\n"; |
18 | print "$_ - $countries{$_}\n" for sort keys %countries; |
Note: See TracBrowser
for help on using the repository browser.