1#@!#!123s

��JFIF�� 1#@!#!123s

: / usr / share / doc / libsys-hostname-long-perl / examples /

Filename : 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;
}