2009-04-25T16:49:39 roooot

Danke erstmal, aber jetzt habe ich ein neues Problem:

Code (perl): (dl )

/^http:\/\/([^/]+\.)?([a-z0-9-]+\.[a-z]{2,5})(/.*)?$/

trifft wunderbar alle Domains bis auf die, in denen es 2 TLD gibt. Beispielsweise .co.uk oder .de.vu. Dort habe ich den Fall, dass statt der Domain foo.de.vu nur die TLDs gespeichert werden, beispielsweise .de.vu.

Wie kann ich das umgehen?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

use URI;

while ( my $url = <DATA> ) {
    my $uri = URI->new($url);
    print $uri->host, "\n";
}

__DATA__
http://www.example.com/foo/bar
http://www.foo.de/blubb
http://www.foo.de
http://bar.de/boing
http://bar.de
http://www.foo.de.vu/blubb
http://foo.de.vu/didumm
http://foo.de.vu