파일 내용을 화면에 인쇄하는 방법은 무엇입니까?

Question

명령 출력을 파일에 저장하려고합니다. 그러면 파일 내용을 화면에 표시합니다. 내 문제는 부품을 (예를 들어 한 번에 20 줄) 표시하고 사용자가 [Enter] 또는 다음 부분을 계속하기 위해 어떤 키를 누르게하려는 것입니다. 나는 파일 내용을 more으로 파이핑하는 것에 대해 생각하고 있었지만 부분적으로 작업하는 대신 전체 파일 내용을 한 번에 표시합니다.

다음은 파일 열기, 쓰기 및 화면에 표시에 대한 책임이있는 코드 부분입니다.

open FILE, '>', $filename; 
print FILE @command; 

open FILE, '<', $filename; 
while (<FILE>) { 
    open MORE, '| more'; 
    print MORE; 
} 
close MORE; 
close FILE; 

Answer 1

use strict; 
use warnings; 

my @command = map "output line $_\n", 1..100; 

my $page_size = 20; 
my $n = 0; 

for my $line (@command) { 
    print $line; 
    $n ++; 
    if ($n % $page_size == 0) { 
     print "--More--"; 
     <>; 
    } 
} 

Answer 2

당신은 루프 밖으로 open more이 필요합니다 사용

close FILE; 
open FILE, '<', $filename; 
open MORE, '| more'; 
while (<FILE>) { 
    print MORE; 
} 
close MORE; 
close FILE; 

사용하거나 사용하지 않고 더 :

open my $file, '<', $filename or die("$!"); 
while (@command) { 
    print join("\n", splice(@command, 0, 20)); 
    <>; 
} 
close $file;