| … | |
… | |
| 147 | my @regexps = ( |
147 | my @regexps = ( |
| 148 | qr<^(\d\d\d\w?) >, |
148 | qr<^(\d\d\d\w?) >, |
| 149 | |
149 | |
| 150 | qr<((?:199[0-9]|200[0-9])(?:0[1-9]|1[012])(?:0[1-9]|[12][0-9]|3[01]))>, |
150 | qr<((?:199[0-9]|200[0-9])(?:0[1-9]|1[012])(?:0[1-9]|[12][0-9]|3[01]))>, |
| 151 | qr<((?:0[1-9]|[12][0-9]|3[01])(?:0[1-9]|1[012])(?:199[0-9]|200[0-9]))>, |
151 | qr<((?:0[1-9]|[12][0-9]|3[01])(?:0[1-9]|1[012])(?:199[0-9]|200[0-9]))>, |
| 152 | qr<^([^0-9].*?)\ *[0-9_ ]+$>, |
152 | qr<^(\d*[^0-9].*?)\ *[0-9_ ]+$>, |
| 153 | qr<^([^0-9].*?)\ *\([0-9_ ]+\)$>, |
153 | qr<^(\d*[^0-9].*?)\ *\([0-9_ ]+\)$>, |
| 154 | qr<^[0-9_ ]+\ *([^0-9].*)$>, |
154 | qr<^[0-9_ ]+\ *([^0-9].*)$>, |
|
|
155 | qr<^(.*)[_ \-]+.*?$>, |
|
|
156 | qr<^.*?[_ \-]+(.*)$>, |
|
|
157 | qr<^(.*)[_ \-]+\d+[_ \-]+.*?$>, |
| 155 | ); |
158 | ); |
| 156 | |
159 | |
| 157 | for my $re (@regexps) { |
160 | for my $re (@regexps) { |
| 158 | for (@files) { |
161 | for (@files) { |
| 159 | #print "$_->[0]\n" if $_->[1] =~ /^kisa.tan/; |
162 | #print "$_->[0]\n" if $_->[1] =~ /^kisa.tan/; |
