perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 27
 Click for quality!



10.02.2012 / 08:39
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


BeitragAusgabe des Hostnamens..
 Seitenanfang
Hallo Zusammen,
ich habe mir ein Perlskript gebastelt sehe unten. Es liefert mir den FQHN, allerdings moechte ich den Hostnamem ohne Domain.Ich weiss es nicht wie ich das Problem anpacken soll.
---------------
#!/usr/bin/perl
use Socket;
sub clientname {
my $host = shift;
my $ssh = shift;
my $name = join(".", unpack('C4',gethostbyname($host)));
my $hostname = gethostbyaddr( inet_aton( $name ), AF_INET );
return $hostname;
}

print clientname($ARGV[0]);

Fuer jeden Hinweis bin sehr dankbar.

Vielen Dank

johny_walker

Datum: 10.05.2006-09:58
Beitragre: Ausgabe des Hostnamens..
 Seitenanfang
Hi,

füg' einen regex ein.


#!/usr/bin/perl
use Socket;
sub clientname {
my $host = shift;
my $ssh = shift;
my $name = join(".", unpack('C4',gethostbyname($host)));
my $hostname = gethostbyaddr( inet_aton( $name ), AF_INET );
$hostname =~ s/(.*)\..*/$1/;
return $hostname;
}
print clientname($ARGV[0]);

Dann bleibt nur noch alles, was vor dem ersten Punkt steht.

-uw

Datum: 10.05.2006-20:57
Beitragre: Ausgabe des Hostnamens..
 Seitenanfang
Danke fuer deine Antwort ;=))

Datum: 11.05.2006-07:48
-






-
 -