Re: [MacPerl-AnyPerl] Differences between two files

[Adam Witney]

You might need to supply some more details, but if everything in your "big
list" is unique, you could (untested code by the way!)

my %list;

open(OUT, $outfile) || die "cannot open $outfile: $!";

open(LIST, $listfile) || die "cannot open $listfile: $!";

while(<LIST>)
 {
  my $line = $_;
  chomp $line;

  $list{$line} = 1;
 }

open(FILE, $file) || die "cannot open $file: $!";

while(<FILE>)
 {
  my $line = $_;
  chomp $line;

  if($list{$line}){print OUT $line."\n"}
 }


This assumes that the two files are the same format. You may need to include
extracts of the two files in your email if they are not.

Adam


> I need to find every line in a file where compare a name of a different big
> list(in another file).I need every line in a new file.Please help me!
> 
> _________________________________________________________________
> Scarica GRATUITAMENTE MSN Explorer dall'indirizzo
> http://explorer.msn.it/intl.asp.
> 
>