Perl에서 수평선과 다중 선 셀을 사용하여 테이블 그리기

Question

perl 형식과 같은 테이블에서 다음과 같이 표시하는 방법은 무엇입니까?

호스트 이름 HostIPs 도메인 이름의 네임 서버의 NSIps

내 데이터가 하나의 행에 대해 다음에 저장됩니다

가 :

이

$ 호스트 이름, @hostIps는 $ 도메인 명 @nservers는,

hostips, nsservers 및 nsips을 @nsips 배열입니다. 한 호스트 이름 - 여러 hostIps 및 하나의 도메인에 대해 여러 네임 서버와 나는 그것을 깔끔하게 형식화 된 방식으로 표시해야합니다.

Text :: Table을 사용해 보았지만 원하는 방식으로 표시하지 않았습니다.

my $tb = Text::Table->new("hostName", "IP Address", "domainName", "nameServers", "IP addr"); 
$tb->add ($hostName, @hostIps, $domainName, @nservers, @nsips); 
print $tb; 

모든 포인터?

hostName IP Address domainName nameServers IP addr 
host1 ip1.1  domain1 serv1.1  addr1.1 
     ip1.2     serv1.2  addr1.2 
     ip1.3     serv1.3  addr1.3 
host2 ip2  domain2 serv2  addr2 
      ..      ..  .. 
host3 ip3  domain3 serv3  addr3 

Answer 1

그냥 셀 값에 줄 바꿈이 포함

$tb->add($hostName, 
     join("\n", @hostIps), 
     $domainName, 
     join("\n", @nservers), 
     join "\n", @nsips 
     ); 

Answer 2

무엇, Text::ASCIITable 또는 Text::SimpleTableText::TabularDisplay에 대한 :

나는로 표시 할 수 있나요? Text::Table를 들어

Answer 3

, 루프에서 add 행을 필요

이

use warnings; 
use strict; 
use Text::Table; 

my $tb = Text::Table->new("hostName", "IP Address", "domainName", "nameServers", "IP addr"); 
for (1 .. 3) { 
    $tb->add("host$_", "ip$_", "domain$_", "serv$_", "addr$_"); 
} 
print $tb; 

__END__ 

hostName IP Address domainName nameServers IP addr 
host1 ip1  domain1 serv1  addr1 
host2 ip2  domain2 serv2  addr2 
host3 ip3  domain3 serv3  addr3