[질문] 두개의 파일에서 공통된 data만 뽑아내기.

그나저나 bioinfomatics 하시나요?

file 1과 file 2에서 각 행의 마지막에 공백의 유/무가 달라서 생기는 현상입니다. 공백은 별로 의미가 없을 것이기에 공백을 없애버리는 명령을 추가했습니다. 파스타 맞나요? 물리화학 교수님께서 숙제로 내주신 추억에. 덜덜덜..

#!/usr/bin/perl 
open(FH, "<file1"); 
@file1 = <FH>; 
close(FH); 
#index를 읽어서 배열로 만듬. 


open(FH, "<file2"); 
@file2 = <FH>; 
close(FH); 

my $file2data; 

foreach $temp (@file2) { 
  $file2data = $file2data."\n".$temp; 
} 
#두번째 파일내용을 통채로 변수에 저장. 

$file2data =~ s/ //g;
#요거랑

my $trash; 

foreach $id (@file1) { 
    $id =~ s/ //g;
    #요 부분입니다.
    
    if($file2data =~ m/$id\n(.*?)\n/) { 
        $trash = $trash.'>'.$id.$1."\n"; 
    } 
} 

print $trash;

아마 잘될겁니다. 혹시 잘 안되면 파일을 올려주세요.
이미 보시고 계시겠지만. O' Reilly 에서 나온 bioinfomatics 와 Mastering Regular Expressions 추천합니다.