source: trunk/tools/validate-composers.pl @ 994

Comments

    Last change on this file since 994 was 763, checked in by pfusik, 12 years ago

    Doc: clean up Composers.txt.

    File size: 395 bytes
    Line 
    1open F, '../asma/Docs/Composers.txt' or die;
    21 until <F> =~ /^Unknown - /;
    3<F>;
    4my $n;
    5my %countries;
    6my ($real, $nick, $country) = '';
    7while (<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}
    17print "Composers: $n\n";
    18print "$_ - $countries{$_}\n" for sort keys %countries;
    Note: See TracBrowser for help on using the repository browser.