It might be easier to do it with a split.
# untested
foreach (@domains) {
my @parts = split(/\./, $_);
my $name;
if (@parts > 1) {
shift @parts;
$name = '.' . join('.', @parts);
}
print $name;
}
As a regex, this I think will work...
foreach (@domains) {
my $name = $_;
$name =~ s/^[^\.]+//;
print $name;
}
-----Original Message-----
From: B. Fongo [mailto:[EMAIL PROTECTED]
Sent: Thursday, April 15, 2004 7:29 PM
To: [EMAIL PROTECTED]
Subject: Regex to match domain for cookie
How do I match a domain name starting from the dot?
# Match something like these
".domain4you.co.uk"
".domain-house.de"
This is what I have:
@domains = ("http://www.domain.com ", "http://www.domain4you.co.uk
"http://www.domain-house.de"; "https//rrp.cash-day.com"
);
foreach (@domains){
$_ =~ /^\D ([\.A-Za-z0-9]+[\.\D])$/; # What is wrong here?
# Need ".domain.com", but I get "ww.domain.com"
$x = $1;
print "$x";
}
Babs
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
