Файловый менеджер

?? Файловый менеджер

Файловый менеджер - Редактировать - /usr/share/doc/libsys-hostname-long-perl/examples/testall.pl

Назад
#!/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; }