| … | |
… | |
| 39 | local $_ = $_[0]; |
39 | local $_ = $_[0]; |
| 40 | |
40 | |
| 41 | # the following rules are rather effective on some newsgroups, |
41 | # the following rules are rather effective on some newsgroups, |
| 42 | # like alt.binaries.games.anime, where non-mime, uuencoded data |
42 | # like alt.binaries.games.anime, where non-mime, uuencoded data |
| 43 | # is very common |
43 | # is very common |
|
|
44 | |
|
|
45 | return $1 if /([a-z0-9_]{3,}\.[a-z]{3,4}(?:.\d+))/i; |
| 44 | |
46 | |
| 45 | # if we find some *.rar, take it as the filename |
47 | # if we find some *.rar, take it as the filename |
| 46 | return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i; |
48 | return $1 if /(\S{3,}\.(?:[rstuvwxyz]\d\d|rar))\s/i; |
| 47 | |
49 | |
| 48 | # one common subject format |
50 | # one common subject format |
