일부 명령의 출력을 파일로 리디렉션하지만 콘솔에 일부 명령을 유지하는 방법은 무엇입니까? 내가 펄 스크립트 이하로 사용하고

Question

,

open (STDOUT, '>',"log.txt")|| die "ERROR: opening log.txt\n"; 
print "\n inside"; 
close (STDOUT); 
print "\noutside"; 

내가 "내부"문자열이 필요 log.txt에 안에 인쇄 될 필요가있다. "outside"문자열을 콘솔에 인쇄해야합니다.

내 스크립트 문자열 "inside"는 log.txt 안에 인쇄되지만 "outside"문자열은 콘솔에 인쇄되지 않습니다.

사람은 open STDOUT, '>', $file 가진 파일이

Answer 1

당신 redirect the standard output stream에 나를 도울 수 있습니다. 그 후 콘솔에 인쇄하는 간단한 방법은 없습니다.

어떤 방법으로 리디렉션하기 전에 파일 및 콘솔

• 저장 STDOUT 모두 인쇄가 나중에 필요할 때 복원합니다. 다시, 변수 open

  open SAVEOUT, ">&STDOUT" or warn "Can't dup STDOUT: $!"; 
  open *STDOUT, ">", $logfile or warn "Can't redirect STDOUT to $logfile: $!"; 
  say "goes to file"; 
  ... 
  open STDOUT, ">&SAVEOUT" or warn "Can't reopen STDOUT: $!"; # restore 
  say "goes to console"; 
  

• 인쇄를 참조 당신이 콘솔 의도; 그렇지 않으면 당신은 한 번 select 다시 STDOUT

• 인쇄 모든 STDOUT 의도 인쇄를 둘 것, 인쇄 당신이 STDOUT를 지정하여 콘솔에 도달 할 수 있습니다 이것으로

  open my $fh_so, '>', \my $for_stdout; 
  select $fh_so; 
  say "goes to variable \$for_stdout"; 
  say STDOUT "goes to console"; 
  ... 
  select STDOUT; # make STDOUT default again 
  say $for_stdout; # goes to console (all accumulated $fh_so prints) 
  

  를 이동하는 위치에 대한 기본을 전환 할 select를 사용 Jens's answer

  open my $fh_log, '>', $logfile or die "Can't open $logfile: $!"; 
  say $fh_log "goes to $logfile"; 
  say   "goes to console"; 
  ... 
  close $fh_log; 
  

  기본 print (또는 오히려에서와 같이 직접 파일에 로그,210 위) 콘솔에 계속 간다

처음 두 개는 약간 성가시다. 을 프로그램의 대부분으로 리디렉션하지 않거나 select 파일 핸들을 사용해야하는 특별한 이유가없는 한 로그를 로그 파일에 직접 인쇄하는 것이 좋습니다.

인쇄 할 줄 바꿈을 추가하는 의 경우 처음에는 use feature 'say';이 필요합니다.

항상 use warnings; 및 use strict;으로 프로그램을 시작하십시오.