| … | |
… | |
| 139 | |
139 | |
| 140 | my %cluster; |
140 | my %cluster; |
| 141 | |
141 | |
| 142 | my @regexps = ( |
142 | my @regexps = ( |
| 143 | [qr<\d+$>, qr<^(.+?)\ *[0-9 ]+$>], |
143 | [qr<\d+$>, qr<^(.+?)\ *[0-9 ]+$>], |
| 144 | [qr<\([0-9 ]+\)$>, qr<^(.+?)\ *\([0-9 ]\)$>], |
144 | [qr<\([0-9 ]+\)$>, qr<^(.+?)\ *\([0-9 ]+\)$>], |
| 145 | [qr<\ [0-9 ]+$>, qr<^(.+?)\d+\ +[0-9 ]$>], |
145 | [qr<\ [0-9 ]+$>, qr<^(.+?)\d+\ +[0-9 ]+$>], |
| 146 | [qr<\ \([0-9 ]+\)$>, qr<^(.+?)\d+\ +\([0-9 ]\)$>], |
146 | [qr<\ \([0-9 ]+\)$>, qr<^(.+?)\d+\ +\([0-9 ]+\)$>], |
| 147 | [qr<^[0-9 ]\ >, qr<^[0-9 ]\ (.+)$>], |
147 | [qr<^[0-9 ]+\ >, qr<^[0-9 ]+\ (.+)$>], |
| 148 | ); |
148 | ); |
| 149 | |
149 | |
| 150 | my %chk_files; |
150 | my %chk_files; |
| 151 | $chk_files{$_->[1]} = 1 for @files; |
151 | $chk_files{$_->[1]} = 1 for @files; |
| 152 | for my $info (@regexps) { |
152 | for my $info (@regexps) { |
