diff options
| author | fukachan <fukachan> | 2001-11-09 10:36:09 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-09 10:36:09 +0000 |
| commit | ee0f515952d0dca6313d95c73c9b30469243e8c3 (patch) | |
| tree | 76767a8ec1abaf9204c2d2dbf4fb0496a1e153ac /fml/lib | |
| parent | cc41834aa5913e333229692080a86e95fab2c684 (diff) | |
| download | fml8-ee0f515952d0dca6313d95c73c9b30469243e8c3.tar.gz fml8-ee0f515952d0dca6313d95c73c9b30469243e8c3.tar.bz2 fml8-ee0f515952d0dca6313d95c73c9b30469243e8c3.zip | |
implement remove_subject_tag_like_string()
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/Mail/Message/Utils.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/fml/lib/Mail/Message/Utils.pm b/fml/lib/Mail/Message/Utils.pm new file mode 100644 index 00000000..adec2fdb --- /dev/null +++ b/fml/lib/Mail/Message/Utils.pm @@ -0,0 +1,17 @@ +package Mail::Message::Utils; + +=head2 remove_subject_tag_like_string(str) + +=cut + +sub remove_subject_tag_like_string +{ + my ($str) = @_; + $str =~ s/^\s*\W[-\w]+.\s*\d+\W//g; + $str =~ s/\s+/ /g; + $str =~ s/^\s*//g; + $str; +} + + +1; |