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

nsnake

随手写的一个验证模块

1. #!/usr/bin/perl -w
   
2. #18位身份证验证测试
   
3. #CGI.NET QQ:318274085
   
4. #root@sakuras.cn
   
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, 下载次数: 62)

2010-08-12 22:07 上传

点击文件名下载附件

wangxiaomo521

没学过怎么写模块..哎 `~悲剧了.

兰花仙子

use lib qw/./;

这句是多余的。

perl -le 'print "@INC"'

看一下，路径里已包含这个"."

nsnake

use lib qw/./;

这句是多余的。

perl -le 'print "@INC"'

看一下，路径里已包含这个"."
兰花仙子 发表于 2010-08-13 09:01

写cgi程式时的习惯

paktc

挺棒啊，有通过网络核实的吗？
要是偷偷上传我的信息。我不是很危险…

wfnh

哈哈···这个有创意的说··

ykredrum

好东西不放过，收藏了，谢谢楼主无私分享