----- Original Message Follows -----
>
> Hi,
> I want to be able to be to use a regex in a couple of
> places, and rather than simply copy it I would like to
> setup a constant and use this.
>
> So I would like to be able to write something like
>
> use constant PRIVATE_RANGE => "/^(10\.|192\.)/";
>
>
> if ( $addr =~ PRIVATE_RANGE )
How about:
my $REG = "^(Ba|F)r";
foreach my $name ("Barney", "Betty", "Wilma", "Fred")
{
print "$name\n"
if ($name =~ /$REG/);
}
--
pDale
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
