File manager - Edit - /usr/share/doc/libsys-hostname-long-perl/examples/testall.pl
Back
#!/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; }
| ver. 1.4 |
Github
|
.
| PHP 8.2.28 | Generation time: 0.02 |
proxy
|
phpinfo
|
Settings