모든 행을 읽고 테이블에 표시하십시오. PERL

Question

perl에 관한 문제가 있습니다. 필자가 원하는 것은 구성 파일을 읽고이를 테이블에 표시하고자하는 것입니다. 여기처럼 내 구성 파일이 보이는 것입니다 :

VID1 
VID2 
VID3 
VID4 

내가 구성 파일의 모든 라인을 읽은 후, 나는 테이블에 표시 할. 이것을 어떻게 할 수 있습니까? 나는 모든 라인을 얻기 위해 루프를 사용해야한다는 것을 알고있다. 그 맞습니까? 아무도 이걸 도와 줄 수 있니? 어떤 도움이라도 대단히 감사 할 것입니다. 그건 그렇고, 나는 펄에서 새로운 사람이야. 읽은 부분은 문제가 아닙니다. 문제는 테이블에 표시하는 방법에 있습니다.

는

나는 그것이 등등 이것처럼 원하는 업데이트되었습니다. 그런데 국경은 0입니다. 어떻게 모든 라인을 읽고 이것들을 출력 할 수 있습니까? 여기에 업데이트]

내가 얻기 위해 노력하고있어 출력됩니다. 테이블은 루프에 있으며 구성 파일에서 읽은 후 모든 값을 표시합니다.

Answer 1

sub print_line { 
    my $source = shift; 
    my $port = shift; 
    my $ip = shift; 
    format TABLE_FORMAT = 
    Name of Video Source: @<<<<<<<<<<<<<<< 
         $source 
    Local Port Number: @<<<<<<<<<<<<<<< 
         $port 
Destination IP address: @<<<<<<<<<<<<<<< 
         $ip 
. 
    $~ = 'TABLE_FORMAT'; 
    write; 
} 

while (<>) { 
    chomp; 
    print_line($_, 'example', 'example'); 
}