Re: Check For Dupes In FLat DB Before Adding

[nedals]

If the file is not too big....

my $found = 0;
open(FH, "$filename") || die "Cannot open $filename for reading: $!\n"
+;
while (<FH>) {
  chomp;
  my (email,name) = split('=',$_);
  if ($email eq $inputted_email) {
    $found = 1;
    break;  ## exit loop;
  }
}
close FH;

if (!$found) {
  ## Append to file
  open(FH, "<<", "$filename") || die "Cannot open $filename to append:
+ $!\n";
  print FH, "$inputted_email=$inputted_name\n";
  close FH;
}

[chas]

Do you mean "last" rather than "break"? Also, I don't think "<<" is a valid open mode.
(Update/comment: If the record is found, why not "exit" rather than just break out of the loop? And otherwise just fall through to the append sub.)

[nedals]

Do you mean "last" rather than "break"? Also, I don't think "<<" is a valid open mode.
You are right. Too much C recently. As to the open mode, it should read...

## Append to file
open(FH, ">>", "$filename") || die "Cannot open $filename to append: $
+!\n";

If the record is found, why not "exit" rather than just break out of the loop?
Because I don't know what needs to be done next.

[chas]

Because I don't know what needs to be done next.
According to the OP, "if the email exists I would like to have it do nothing"