| … | |
… | |
| 44 | local $_ = $_[0]; |
44 | local $_ = $_[0]; |
| 45 | |
45 | |
| 46 | # the following rules are rather effective on some newsgroups, |
46 | # the following rules are rather effective on some newsgroups, |
| 47 | # like alt.binaries.games.anime, where non-mime, uuencoded data |
47 | # like alt.binaries.games.anime, where non-mime, uuencoded data |
| 48 | # is very common |
48 | # is very common |
|
|
49 | |
|
|
50 | # File 06 of 33 - Kendo - Final - 0001.jpg (2/3) |
|
|
51 | return $1 if /File \d+ of \d+ - (.*) \(\d+\/\d+\)/i; |
| 49 | |
52 | |
| 50 | # if we find some *.rar, take it as the filename |
53 | # if we find some *.rar, take it as the filename |
| 51 | return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i; |
54 | return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i; |
| 52 | |
55 | |
| 53 | # one common subject format |
56 | # one common subject format |
