有没有更好的方法在Perl中进行数据验证而不是正则表达式？

Question

有没有更好的方法在Perl中进行数据验证而不是正则表达式？

我有使用复杂正则表达式进行字符串和数字数据验证的Perl代码,这使得代码难以阅读和遵循,对每个人来说.

Answer 1

一个常见的错误是将所有需求塞入单个正则表达式中.这是第一次工作,但通常你得到一个正常的表达,没有人会在两周后理解.

不要那样做.每个要求使用一个正则表达式.

Answer 2

在perl中有一个非常棒的参数验证模块:Params :: Validate

它可以让您以干净,漂亮的方式检查参数.从我们发现它的那一刻起,我们就到处使用它.

Answer 3

不要重新发明轮子.使用正则表达式::常见从CPAN:

#!/usr/bin/perl

use strict;
use warnings;

use Regexp::Common qw(number);

my $val = '500.345';

print "Good float\n" if $val =~ /^$RE{num}{real}$/;

CPAN是你的朋友.