随手写的一个身份证验证模块

本帖最后由 nsnake 于 2010-08-12 22:09 编辑

随手写的一个验证模块

1. #!/usr/bin/perl -w
   
2. #18位身份证验证测试
   
3. #CGI.NET QQ:318274085
   
4. #[email protected]
   
5. use lib qw/./;
   
6. use CN::nid;
   
7. 
   
8. my    $test = CN::nid->new(nid=>'XXXXXXXXXXXXXXXXXX');
   
9. #是否有效 1真 0假
   
10. print $test->isValid();
    
11. #生日 xxxx-xx-xx
    
12. print $test->getBirthday();

复制代码

详细参见附件
nidtest.rar (1020 Bytes)

下载次数: 5

2010-08-12 22:07

作者: nsnake   发布时间: 2010-08-12

作者: wangxiaomo521   发布时间: 2010-08-13