|< 1 2 >| | 14 Einträge, 2 Seiten |
1
2
3
4
use Socket;
$IP = inet_aton ('127.0.0.1');
$HOST = gethostbyaddr($IP, AF_INET);
print $HOST;
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl
use warnings;
use strict;
my $url = 'http://www.domain.de/UndDaStehtVonMirAusNochIrgendwas';
my ($land_kurz) = $url =~ m/\.([a-z]{2,})\//;
# Danach braeuchtest du eine Tabelle mit der du
# das Land setzen kannst.
my $land = "Deutschland" if $land_kurz eq "de";
print $land;
|< 1 2 >| | 14 Einträge, 2 Seiten |