Name

Aufgabe

Aufruf mit Parametern

Skript

use Net::IDN::Encode;

use constant REGEXP_HOSTNAME => qr!^[\w\-.]+$!;
use constant REGEXP_IPADDR   => qr!^((?:(?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})[.](?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})[.](?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})[.](?:25[0-5]|2[0-4]\d|[0-1]??\d{1,2})))$!;

sub host_toidn
{
  return domain_to_ascii(shift);
}

sub host_fromidn
{
  return domain_to_unicode(shift);
}

sub valid_hostname
{
  my $value = host_toidn(shift);

  return 0 unless $value =~ REGEXP_HOSTNAME;
  return 0 unless index($value, ".") > 0;

  my @parts = split /\./, $value;
  my $valid = scalar @parts;

  foreach my $label (@parts)
  {
     $valid = 0 if (length $label > 63) or ($label =~ qr!^\-!) or ($label =~ qr!\-$!);
     last unless $valid;
  }

  $valid = 0 if $parts[-1] =~ qr!^\d.*!;

  return $valid;
}

sub valid_ipaddr
{
  my $value = shift;
  return $value =~ REGEXP_IPADDR;
}

sub valid_host
{
  my $value = shift;
  return valid_hostname($value) || valid_ipaddr($value);
}

Ergänzungen, Kommentare

SaschaKieferAkaEsskar - 11 Aug 2004 - Thema erstellt