Orpheus — Wed, 23 Aug 2000 04:55:39 +0000

you could replace the "" that you print with to ''
that always works.

Ken Elliott — Wed, 23 Aug 2000 04:12:07 +0000

Oh..ok. I just returned because I figured out a beter way to do what I was talking about. Now think you can answer my question in the thread below?

VulKen
Hit it long, but keep it short

Edge — Wed, 23 Aug 2000 04:04:55 +0000

Nevermind! I figured it out!!

For anyone who wants to know, just use this little snippet of code:

$FORM{'email'} =~ s/\@/\\\@/g;

Thanks for trying to help, though, VulKen!

--Edge

Re: Printing e-mail with '\' before '@'??

Edge — Wed, 23 Aug 2000 03:53:20 +0000

No, I'm talking about changing it before it even gets printed to the file.

--Edge

Ken Elliott — Wed, 23 Aug 2000 03:05:58 +0000

If you are talking about taking it from a searching through a file and replaceing every occurance of "@" then you run this simple script.

#Script has not been tested so, check for errors that I miss. Sorry.

#!/usr/bin/perl -w
$thefile = "file.txt"

open (FILE, < "$thefile");
@contents = ;
close (FILE);

foreach $line(@contents){
$line =~ s/@//@/; # Don't even know if this will work.
}