email email - Perl Programming

Posted by samip1983 (samip1983), 3 August 2005

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

Posted by admin (Graham Ellis), 5 August 2005

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

This page is a thread posted to the opentalk forum at www.opentalk.org.uk and archived here for reference. To jump to the archive index please follow this link.