我的一个调用函数验证电子邮件地址的检查约束对我来说不起作用。
CREATE OR REPLACE FUNCTION f_IsValidEmail(text) returns BOOLEAN AS
'select $1 ~ ''^[^@\s]+@[^@\s]+(\.[^@\s]+)+$'' as result
' LANGUAGE sql;
SELECT f_IsValidEmail('myemail@address.com');
这个函数返回了false，但应该是true。我已经尝试了一些其他的正则表达式，但都失败了。有人能指出这个函数哪里有问题吗？
这些答案中有很多都接近正确，以下是我的建议：
我在DBA.StackExchange.com上展示了两种方法如何正确地执行此操作，分别是检查MX记录和使用HTML5规范。以下是简短明了的内容。
CREATE EXTENSION citext;
CREATE DOMAIN email AS citext
CHECK ( value ~ '^[a-zA-Z0-9.!#$%&''*+/=?^_`{|}~-]+@[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(?:\.[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*$' );
SELECT 'foobar@bar.com'::email;
SELECT CAST('foobar@bar.com' AS email);
更多信息，我强烈建议你全文阅读答案。在答案中，我还展示了如何创建一个基于Email::Valid的DOMAIN，并解释了我为什么不再使用那种方法。
CREATE OR REPLACE FUNCTION email_valid(email text) RETURNS bool
LANGUAGE plperlu
AS $$
use Email::Address;
my @addresses = Email::Address->parse($_[0]);
return scalar(@addresses) > 0 ? 1 : 0;
$$;
这是非常困难的。以下是更好的解决方案：
假设您的数据库主机已安装Perl，请使用CPAN在同一主机上安装Email::Valid模块：
you@localhost$ cpan Email::Valid
请确保您已安装PL/Perl。在psql中连接到您的数据库，并将plperlu添加为一种语言：
CREATE EXTENSION plperlu;
请记住，这是一种不受信任的语言，因此您将为您的数据库提供直接文件访问权限，如果有人在您的Perl模块或数据库函数中插入恶意代码，则可能存在安全风险。但是，您需要执行此操作以进行下一步操作。
将以下函数添加到您的数据库中：
CREATE FUNCTION validate_email() RETURNS trigger AS $$
use Email::Valid;
return if Email::Valid->address($_TD->{new}{email});
elog(ERROR, "invalid email address $_TD->{new}{email} inserted into $_TD->{table_name}(email)");
return "SKIP";
$$ LANGUAGE plperlu;
CREATE TRIGGER users_valid_email_trig
BEFORE INSERT OR UPDATE ON users
FOR EACH ROW EXECUTE PROCEDURE validate_email();
完成了！
这种解决方案使用Email::Valid Perl模块来处理验证，该模块又依赖于一个正则表达式来确保RFC 822的兼容性。但是，它是一个庞大的正则表达式，所以不要尝试自己编写。
如果您不喜欢启用plperlu而不是普通的plperl，您可能可以将相关函数移植到您的数据库中。
email.sql - 基本的最小验证，但速度快。因为验证将在每次 UPDATE 查询时 触发, 即使字段的值没有改变！is_email.sql - 验证几乎按照规范，但速度较慢。对我有用：
psql（9.0.2） 键入“help”获取帮助。 postgres => CREATE OR REPLACE FUNCTION“f_IsValidEmail”（text）RETURNS BOOLEAN AS postgres -> '选择$1〜'' ^ [^ @ \ s] + @ [^ @ \ s] +（\。[^ @ \ s] +）+ $ ''作为结果 postgres' - > 'LANGUAGE sql; 创造功能 postgres => commit; 提交 postgres => SELECT“f_IsValidEmail”（'myemail@address.com'）; f_IsValidEmail ---------------- t （1行） postgres =>