| Server IP : 217.160.0.141 / Your IP : 216.73.217.7 Web Server : Apache System : Linux info 3.0 #1337 SMP Tue Jan 01 00:00:00 CEST 2000 all GNU/Linux User : p8818224 ( 2623854) PHP Version : 8.2.35 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /kunden/usr/share/doc/libsys-hostname-long-perl/examples/ |
Upload File : |
#!/usr/bin/perl -w
use strict;
use Test;
use lib '../lib';
use lib 'lib';
use Sys::Hostname::Long;
format STDOUT_TOP =
Method |Title |Result
-----------------|---------------------------------|---------------------------------------
.
my ($method, $title, $ret);
format STDOUT =
@<<<<<<<<<<<<<<<<|@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$method, $title, $ret
.
$ret = hostname_long();
$method = "AUTOMATIC";
$title = "via " . $Sys::Hostname::Long::lastdispatch;
write;
foreach $method (Sys::Hostname::Long::dispatch_keys()) {
$title = Sys::Hostname::Long::dispatch_title($method);
$ret = (Sys::Hostname::Long::dispatcher($method) || "");
write;
}