> "SB" == Steve Bertrand writes:
SB> On 2010.04.29 23:23, Uri Guttman wrote:
>>> "SB" == Steve Bertrand writes:
>>
SB> use Tie::RegexpHash;
>>
SB> my $number = qr/^\d+$/;
SB> my $alpha = qr/^\w+$/;
>>
SB> tie my %dt, 'Tie::RegexpHash';
>>
>> that sounds like
On 2010.04.29 23:23, Uri Guttman wrote:
>> "SB" == Steve Bertrand writes:
>
> SB> use Tie::RegexpHash;
>
> SB> my $number = qr/^\d+$/;
> SB> my $alpha = qr/^\w+$/;
>
> SB> tie my %dt, 'Tie::RegexpHash';
>
> that sounds like an insane idea for a module. but that is IMO. you can
>
> "SB" == Steve Bertrand writes:
SB> use Tie::RegexpHash;
SB> my $number = qr/^\d+$/;
SB> my $alpha = qr/^\w+$/;
SB> tie my %dt, 'Tie::RegexpHash';
that sounds like an insane idea for a module. but that is IMO. you can
do this with much less effort with a list of regexes paired
