Replacing/deleting text in a text file, part deux

[Scot Robnett]

Looking at the code below, can anyone help me figure out how to compare the
e-mail addresses in @addresses with the e-mail addresses in @emails and
print out to the new file as shown, but minus the matching addresses?

Scot R.
inSite


#!/usr/bin/perl -w

use CGI;
use CGI::Carp qw(fatalsToBrowser);

$q = new CGI;

$datafile  = '/usr/apache/htdocs/path/to/.tracker';
$datafile2 = '/usr/apache/htdocs/path/to/.tracker2';
$company = $q->param('customercomp'); # scalar comes from form param
@addresses = $q->param('customeremail'); # list comes from form param

$/ = '*'; # split file records on '*'

print $q->header;

open(FILE,"<$datafile") or die "Couldn\'t open data file.";
@records = <FILE>;
close(FILE);

open(FILE2,">$datafile2") or die "Couldn\'t open data file 2.";

foreach $record(sort(@records)) {
 chomp($record);
 ($comp,$addr) = split(/\|/, $record);
  @emails = split /:/, $addr;

# Right here, I want to see if any of the addresses
# in @addresses match an address in @emails for this
# particular $record.

# Now, if $comp eq $company, I want to print join ':'
# the e-mail addresses MINUS any $address[$_] that
# matched $emails[$_].

  print FILE2 "$comp\|";
  print FILE2 join(':', @emails); # minus any matching $address[$_]
  print FILE2 $/;
}

close(FILE2);




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]