Stumped on this problem
my ( %self );
$self->{DF_SPEC} = {
a => '(Mon|Tue|Wed|Thu|Fri|Sat|Sun)',
A => '(Monday|Tuesday|Wednesday|Thursday|Friday)',
b => '(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)',
B =>
'(January|February|March|April|May|June|July|August|September|October|November|December)',
c => "$self->{DF_SPEC}{a} $self->{DF_SPEC}{b}
$self->{DF_SPEC}{e}
$self->{DF_SPEC}{H}:$self->{DF_SPEC}{M}:$self->{DF_SPEC}{S} CUT
self->{DF_SPEC}{Y}",
C => '(\d){2}',
d => '(\d){2}',
e => '([ 12][1-9]|10|20|30|31)',
h => "$self->{DF_SPEC}{b}",
H => '([01][0-9]|2[0-3])',
I => '(0[1-9]|1[0-2])',
j => '(00[1-9]|0[1-9]\d|[1-2]\d\d|3[0-5]\d|36[0-5])',
m => '(0[1-9]|1[0-2])',
n => '\\n',
p => '([AaPp][Mm])',
r =>
"$self->{DF_SPEC}{I}:$self->{DF_SPEC}{M}:$self->{DF_SPEC}{S}
$self->{DF_SPEC}{p}",
S => '([0-5][0-9])',
t => '\\t',
T =>
"$self->{DF_SPEC}{H}:$self->{DF_SPEC}{M}:$self->{DF_SPEC}{S}",
u => '([1-7])',
U => '([0-4][0-9]|5[0-3])',
V => '(0[1-9]|[1-4][0-9]|5[0-3])',
w => '([0-6])',
W => '([0-4][0-9]|5[0-3])',
y => '([0-9][0-9])',
Y => '([0-9]{4})',
percent => '(\\%)'
};
print "$self->{DF_SPEC}{'b'}\n";
print "$self->{DF_SPEC}{'h'}\n";
Produces the output:
(Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec)
<blank line>
Any ideas ?
-----------------------------------------
Craig Moynes
Internship Student
netCC Development
IBM Global Services, Canada
Tel: (905) 316-3486
[EMAIL PROTECTED]
