1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#-*- perl -*-
#
# Copyright (C) 2000 Ken'ichi Fukamachi
#
# $FML: MH.pm,v 1.2 2001/12/22 09:21:19 fukachan Exp $
#
package Mail::Message::MH;
=head1 NAME
Mail::Message::MH - utilities for MH style format
=head1 SYNOPSIS
use Mail::Message::MH;
my $mh = new Mail::Message::MH;
=head1 DESCRIPTION
=head1 METHODS
=head2 expand($str, [$min, $max])
return HASH ARRAY of numbers specified by the following format:
100
100-110
first-110
100-last
first
first:100
last
last:100
=cut
# Descriptions: expand MH style expression to list of numbers
# Arguments: OBJ($self) STR($str) NUM($min) NUM($max)
# Side Effects: none
# Return Value: HASH_ARRAY
sub expand
{
my ($self, $str, $min, $max) = @_;
my $ra = [];
unless (defined $min) { $min = 1;}
if ($str eq 'all') {
unless (defined $max) { return undef;}
return _expand_range($min, $max);
}
elsif ($str =~ /^\d+$/) {
return [ $str ];
}
elsif ($str =~ /^(\d+)\-(\d+)$/) {
my ($first, $last) = ($1, $2);
return _expand_range($first, $last);
}
elsif ($str =~ /^(first)\-(\d+)$/) {
my ($first, $last) = ($1, $2);
return _expand_range($min, $last);
}
elsif ($str =~ /^(\d+)\-(last)$/) {
unless (defined $max) { return undef;}
my ($first, $last) = ($1, $2);
return _expand_range($first, $max);
}
elsif ($str eq 'first') {
return [ $min ];
}
elsif ($str eq 'last' || $str eq 'cur') {
unless (defined $max) { return undef;}
return [ $max ];
}
elsif ($str =~ /^first:(\d+)$/) {
return _expand_range($min, $min + $1);
}
elsif ($str =~ /^last:(\d+)$/) {
unless (defined $max) { return undef;}
return _expand_range($max - $1, $max);
}
undef;
}
# Descriptions: make an array from $fist to $last number
# Arguments: NUM($first_number) NUM($last_number)
# Side Effects: none
# Return Value: HASH_ARRAY as [ $first .. $last ]
sub _expand_range
{
my ($first, $last) = @_;
my (@fn);
for ($first .. $last) { push(@fn, $_);}
return \@fn;
}
=head1 AUTHOR
Ken'ichi Fukamachi
=head1 COPYRIGHT
Copyright (C) 2001 Ken'ichi Fukamachi
All rights reserved. This program is free software; you can
redistribute it and/or modify it under the same terms as Perl itself.
=head1 HISTORY
Mail::Message::MH appeared in fml5 mailing list driver package.
See C<http://www.fml.org/> for more details.
=cut
1;
|
