fairhousing — Sat, 16 Oct 1999 20:45:00 +0000

looks good i'll have to try.

thanks a lot

----------
My Site Got Hacked, Check It Out!
http://www.birminghamnet.com

Stefen Enns — Fri, 15 Oct 1999 22:09:00 +0000

Ahh! Where'd the smiley faces come from??
Let's try this again...

#!/usr/bin/perl

open (DB,"/path/to/the/database.whatever" ) ;
@database=<DB>;
close (DB);

open (EMAILFILE,">/path/to/the/email.file" ) ;
foreach $line (@database) {
($name,$email,$phone,$state,$city) = split(/\¦/,$line);
print EMAILFILE "$email\n";
}
close (EMAILFILE);

Stefen Enns — Fri, 15 Oct 1999 22:07:00 +0000

This code should help you... I haven't tested it, but it should work

#!/usr/bin/perl

open (DB,"/path/to/the/database.whatever");
@database=<DB>;
close (DB);

open (EMAILFILE,">/path/to/the/email.file");
foreach $line (@database) {
($name,$email,$phone,$state,$city) = split(/\¦/,$line);
print EMAILFILE "$email\n";
}
close (EMAILFILE);