Hi all,

was jus playing with some code i need to manipulate email address, this is just the beginning part. I need once the email is entered a switch is also used. U means upper case. WC means for all the . to be changed to / dot / and the @ changed to / at /.
The next switch is wc and does the reverse of the WC switch.

When a $email is entered like 'x dot x at hotmail dot com' and a wc switch is used, there is no responce from the code and returns a blank.

any ideas??

thanks, sami p

Code:

#!/usr/bin/perl use strict; use CGI ':standard'; my ($email, $switch, $up); $email = param('email'); $switch = param('switch'); $up = uc($email); print "content-type: text/html\n\n"; if (($email) && ($switch =~/U/)) { print "$up\n"; } elsif (($email =~ s/\./ dot /g) && ($email =~ s/\@/ at /g) && ($switch =~ /WC/)) { print "$email\n"; } elsif (($email =~ s/ dot /\./g) && ($email =~ s/ at /\@/g) && ($switch =~/wc/)) { print "$email\n"; }

Check that you have the correct incoming parameters with extra print statements.  I cut and pasted the last few lines of your logic and the code worker for me ...

Code:

$email = "graham dot ellis at wellho dot net"; $switch = "wc"; if (($email) && ($switch =~/U/)) { print "$up\n"; } elsif (($email =~ s/\./ dot /g) && ($email =~ s/\@/ at /g) && ($switch =~ /WC/)) { print "$email\n"; } elsif (($email =~ s/ dot /\./g) && ($email =~ s/ at /\@/g) && ($switch =~/wc/)) { print "$email\n"; }

Ran as
Code:

earth-wind-and-fire:~/aug05 grahamellis$ perl pb graham.ellis@wellho.net earth-wind-and-fire:~/aug05

---