| … | |
… | |
| 126 | |
126 | |
| 127 | $self->{path} = $path; |
127 | $self->{path} = $path; |
| 128 | |
128 | |
| 129 | my @files = map { |
129 | my @files = map { |
| 130 | $_ = Glib::filename_to_unicode $_; |
130 | $_ = Glib::filename_to_unicode $_; |
| 131 | my $str = $_; |
131 | my $path = $_; |
| 132 | $str =~ s/[\-_ ]+/ /g; |
132 | s/[\-_ ]+/ /g; |
| 133 | $str =~ s/\.[^\.]+$//g; |
133 | s/\.[^\.]+$//g; |
| 134 | $str =~ s/(?<=[0-9 ])(?:fc|bc|front|back|cover)[a-z]?$//; |
134 | s/(?<=[0-9 ])(?:fc|bc|front|back|cover)[a-z]?$//; |
|
|
135 | s/ +$//; |
| 135 | [$str, $_] |
136 | [$_, $path] |
| 136 | } |
137 | } |
| 137 | grep !/\.(sfv|crc|par|par2)$/, readdir $dir; |
138 | grep !/\.(sfv|crc|par|par2)$/i, readdir $dir; |
| 138 | |
139 | |
| 139 | my %cluster; |
140 | my %cluster; |
| 140 | |
141 | |
| 141 | my @regexps = ( |
142 | my @regexps = ( |
| 142 | [qr<\d+$>, qr<^(.+?)\ *[0-9 ]+$>], |
143 | [qr<\d+$>, qr<^(.+?)\ *[0-9 ]+$>], |
| 143 | [qr<\([0-9 ]+\)$>, qr<^(.+?)[_ ]*\([0-9 ]\)$>], |
144 | [qr<\([0-9 ]+\)$>, qr<^(.+?)\ *\([0-9 ]\)$>], |
| 144 | [qr<\ [0-9 ]+$>, qr<^(.+?)\d+\ +[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<^[0-9 ]\ (.+)$>], |
147 | [qr<^[0-9 ]\ >, qr<^[0-9 ]\ (.+)$>], |
| 147 | ); |
148 | ); |
| 148 | |
149 | |
