Community  »  Perl: Allgemeines Forum

TLD aus URL splitten	Seitenanfang
Hallo! Wie kann ich aus einer URL die TLD herausholen? Gibt es dazu eine vordefinierte Funktion, oder muss man das Schritt für Schritt splitten? Gruß Thorsten Datum: 02.11.2004-00:36
re: TLD aus URL splitten	Seitenanfang
#!c:\perl\bin\perl.exe -w $url = "http://www.perlunity.de"; $url =~ s/.*\.//g; print $url."\n"; Datum: 02.11.2004-08:41
re: TLD aus URL splitten	Seitenanfang
funktioniert nicht immer: $url = "http://www.perlunity.de/test.cgi"; $url =~ s/.*\.//g; print $url."\n"; gibt cgi aus... das hier funktioniert (habe es aber nicht sehr ausführlich getestet): #! /usr/bin/perl use strict; use warnings; my $url = 'http://board.perl-community.de/ikonboard/ikonboard.cgi?act=ST;f=1;st=0;t=450;#idx2'; my $tmpurl = (split(/(?<!\/)\/(?!\/)/,$url))[0]; my ($tld) = $tmpurl =~ /([^\.]+)$/; print $tld; Datum: 02.11.2004-10:33
re: TLD aus URL splitten	Seitenanfang
Da hätt ich vorm posten wohl länger nachdenken und testen sollen... danke für die Korrektur! Datum: 02.11.2004-10:45