입력 파일을 균일하게 처리하는 방법

Question

나는 stdin으로부터의 입력을 기대하거나, .log와 .log.gz 파일의 혼합으로부터 프로그램을 가지고있다. 다음은 프로그램에서 처리해야하는 세 가지 유형의 호출입니다.

cat input.log | prog 
prog < input.log 
prog input.log input.log.gz 

프로그램은 모든 입력 파일을 하나로 간주합니다. 나는 균일하게 모든 입력을 처리 할 수 ​​ARGV에 투자 기대했다 :

while (<>) { 
# process input 
} 

내 목표는 같은 루프 GZ 파일을 처리하는 것입니다. 어떻게 할 수 있습니까? 나는 그것이 얼마나 지저분한 지 알고 싶다. 너무 나쁜 경우 gz를 별도로 처리 할 것입니다.

코어 모듈은 Perl 5.8.8에서만 사용할 수 있습니다.

Answer 1

정말 그렇게 할 수 없으며 다이아몬드 운영자의 약식 혜택을 얻을 수 없습니다.

• 입력 핸들로 원숭이를보아야하기 때문에 파일을 직접 open해야합니다.

• @ARGV을 사용할 수는 있지만이 파일을 다시 열면 *::STDIN을 다시 열면 쉽게 처리 할 수 ​​있습니다.

  my $file = shift; 
  if (!$file)   {} # use STDIN as is. 
  elsif ($file =~ /\.gz$/) { 
      open(::STDIN, '-|', "gunzip $file") or die "Could not open: $!!"; 
  } 
  else { 
      open(::STDIN, '<', $file) or die "Could not open $file: $!!"; 
  } 
  
  while (<>) { 
      ... 
  } 
  close STDIN;