✏️ 正在编辑: testall.pl
路径:
/usr/share/perl5/Sys/Hostname/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; }
💾 保存文件
← 返回文件管理器