Perl을 사용하여 동일한 텍스트를 두 개의 개별 파일 핸들에 쓰려면 어떻게해야합니까?

Question

동일한 텍스트를 두 개의 다른 파일에 출력해야합니다 (응용 프로그램 요구 사항이며 테스트 중입니다). 이제는 두 개의 파일 핸들을 열고 각각 두 줄을 작성한 다음 내 코드에서 한 번 12 번 닫으 려하지 않습니다.

두 개의 다른 파일에 동일한 텍스트를 보내려면 CLI (Perl)의 한 줄만 사용하는 간단한 방법이 있습니까?

Answer 1

IO::Tee을 사용하십시오. 문서의 예에서

: 솔루션 :-) 잘 작동

use IO::Tee; 
$tee = IO::Tee->new($handle1, $handle2); 
print $tee "foo", "bar";