Training, Open Source computer languages
PerlPHPPythonMySQLApache / TomcatTclRubyJavaC and C++LinuxCSS 
Search for:
Home Accessibility Courses Diary The Mouth Forum Resources Site Map About Us Contact
email email

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.

You can Add a comment or ranking to this page

© WELL HOUSE CONSULTANTS LTD., 2014: Well House Manor • 48 Spa Road • Melksham, Wiltshire • United Kingdom • SN12 7NY
PH: 01144 1225 708225 • FAX: 01144 1225 899360 • EMAIL: info@wellho.net • WEB: http://www.wellho.net • SKYPE: wellho