in reply to Check For Dupes In FLat DB Before Adding

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;
}

[download]

Replies are listed 'Best First'.
Re^2: Check For Dupes In FLat DB Before Adding
by chas (Priest) on Dec 15, 2005 at 05:49 UTC
    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.)
[reply]
      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";

      [download]
      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.
[reply]
[d/l]
        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"
[reply]

In Section Seekers of Perl Wisdom