Re: perl/arping

[Peter Berlau <pberlau@gmx.de>]

Hans-Juergen Mehnert <hjmehnert@breedexx.de> writes:
Hi,

## schnipp

#!/usr/bin/perl
# hostaddrs - zeigt kanonische Namen und Adresse(n)

use Socket;
use Net::hostent;

$name = shift;

if ($hent = gethostbyname($name)) {
  $name    = $hent->name;
  $adr_ref = $hent->addr_list;
  @adressen= map { inet_ntoa($_) } @$adr_ref;
}

print "$name => @adressen\n";

## schnapp

usage, z.B:   hostaddrs  www.pberlau.de

hth
 peter

> Hej,
> 
> kleines problem mit perl
> das auflösen von hostnamen in mac-adr mit hilfe von arping
> funktioniert aus sicherheitsgründen nur als user root
> das möchte ich auch dabei belassen
> 
> d.h. als user mit perl die ausgabe von arping zu verarbeiten fällt als
> lösung weg
> 
> trotzdem brauche ich eine möglichkeit mit perl vom hostnamen auf die
> mac-adr zu kommen, da ich nur über die mac-adr in den switches den
> verwendeten port und den verursachten traffic finde
> 
> vorschläge?
> 
> -- 
> Hans-Juergen Mehnert
> Samstag, 2. Februar 2002
> 
> hjmehnert@breedexx.de
> [The Bat!/1.53d]
> 
> 
> -- 
> Zum AUSTRAGEN schicken Sie eine Mail an debian-user-german-request@lists.debian.org
> mit dem Subject "unsubscribe". Probleme? Mail an listmaster@lists.debian.org (engl)
> 
> 

-- 
Peter Berlau                                  <pberlau@gmx.de>