in reply to whois module query
Personally, I'd put \s* wherever there could be space-like characters, since you never really know what they're going to think of doing next. Stuff tends to float. You've practically got to assume that where there is one space, there might be dozens. This might be better written as:sub regex_created { '^Record created on (.*).$' } sub regex_expires { '^Record expires on (.*).$' }
There's no trimming going on either, apparently:sub regex_created { '^\s*Record created on\s+(.*).' } sub regex_expires { '^\s*Record expires on\s+(.*).' }
No evidence of s/^\s+//, which I would've figured had to be in there somewhere since Netsol records are typically indented with spaces.my $text = $self->_send_to_sock( $sock ); # ... $self->parse_text($text);
|
|---|