[perl] 파일 비교후 분류.

배열비교

두개의 파일을 읽어 비교.

1. 배열에는 비교당할 list 예를들어 기존파일 A와 새로운파일 B가 있을때 A의 내용이 B에 있는지 확인 할 때.

 A는 기준점이되고 B는 비교점이 된다.

 # B를 읽고 배열에 넣은 후 foreach문으로 해도 상관없다.

파일 읽고 비교후 정리

배열 @arr

-------------

open(AAA,"./small");

while(<AAA>){

chomp;

 push(@arr,$_);

}

if (-f "./exist"){ `rm -f ./exist`; }

if (-f "./not_exist"){ `rm -f ./not_exist`; }

open(AAA,"./big");

while(<AAA>){

chomp;

 $line=$_;

  if ( grep { $_ eq $line } @arr ) {  # 현재 $line의 값이 @arr에 존재 하는지 비교하는 구문

   `echo $line >> ./exist`;

  }else{

   `echo $line >> ./not_exist`;

  }

}