On 2007/03/14, at 16:00, yitzle wrote:
regex. if ( m/^https?\/\/:blah\.com/)
<code>
my @possible_values = qw{
http://www.google.com
https://my.domain.
http://some.other.domain.net
};
my @urls = qw{
http://www.google.com/?some_bizarre_args
https://my.domain.com
https://my.domain.net
http://some.other.domain.net
};
my $regex = '(' . join( "|", @possible_values ) . ')';
foreach my $url (@urls) {
if ( $url =~ /$regex/ ) {
print "$url matches!\n";
}
}
</code>
--
Igor Sutton
[EMAIL PROTECTED]
