Escape special characters in password

[thendal]

Hi All!

I am using Net::IMAP::Simple module to authenticate a set of users against our mail server.

Here is a sample code.

use CGI;
use Net::IMAP::Simple;
$server = new Net::IMAP::Simple( 'pop.email.edu');
$op=new CGI;
print $op->header;
$username=$op->param('username');
$password=$op->param('password');
$t=$server->login($username, $password1);
if($t eq '0')
 {
   print "success";
 }
 else
 {
   print "Failed";
 }

Above code works fine is users password doesn't have any special characters in it.

eg: abcdefg

but when a user have a password with special character it fails

eg: abc%%%_rty

Is there a way i can escape this special characters in password. or is there any other work around in it.

Thank you.

 

[thendal]

I tried something like this

$password="\Q$password\E";

Didn't work. Is there any other good perl module to check user authentication through IMAP.

Thanks

 

[mikevh]

Have you tried
$password = quotemeta($password);
This will backslash any non-"word" characters in the password. For your example, this would be abc\%\%\%_rty.

 

[thendal]

Thanks mike. It worked.