2 개의 파일에 공통적 인 행을 표시하는이 perl 코드를 설명하십시오.

Question

이 perl 한 행은 두 파일이 공통으로 갖는 행을 어떻게 표시합니까?

perl -ne 'print if ($seen{$_} .= @ARGV) =~ /10$/' file1 file2 

Answer 1

-n 명령 줄 옵션이

while ($ARGV = shift @ARGV) { 
    open ARGV, $ARGV; 
    LINE: while (defined($_ = <ARGV>)) { 
    $seen{$_} .= @ARGV; 
    print $_ if $seen{$_} =~ /10$/; 
    } 
} 

에 상응하는 뭔가를 코드 변환, scalar @ARGV는 1입니다. 각 행에 대해 1이 %seen 항목에 추가됩니다.

두 번째 파일을 읽는 동안 scalar @ARGV은 0입니다. 따라서 파일 1과 파일 2에 행이있는 경우 항목은 1110000 (파일 1에서는 3x, 파일 2에서는 4x)이었습니다.

공통 라인 만 정확하게 한 번 출력하고 싶습니다. 공통 줄이 file2에서 처음 보일 때 이것을 수행하므로 $seen{$_}은 1110입니다. 정규식 /10$/으로 표시됩니다. 문자열 10이 끝에 와야합니다.

Answer 2

첫 번째 파일을 열 때 @ARGV가 이동합니다. 스칼라 컨텍스트에서는 1을 반환합니다 (두 번째 파일에 멤버가 하나 있기 때문에). 각 행에 대해이 1이 표시된 해시 %에 추가됩니다. 두 번째 파일이 열리면 @ARGV가 다시 이동하고 이제 비어 있으므로 스칼라 컨텍스트에서 0을 반환합니다. /10$/은 "file1에서 라인이 보였으 나 이제는 file2에서 처음 발견되었습니다"라는 의미입니다. 첫 번째 파일을 읽을되는 동안