习之北的专栏

近来对Perl有点兴趣，就写了个小程序，刚好有软工作业，于是分别用白黑盒测试了下，效果还是不错的！！！以后写网页表单验证可以用到。 说明下，身份证分一代证15位与二代证18位，其中前六位地区码，（这个没有验证）18位多的就是年份是四位，15位的年份两位，前两位默认为“19”，18位的最后一位为校验码，具体算法请看程序，其中前17位每一位都有权值，算出总和后模11算出对应的校验码即可。

数组与哈希： Perl的数组相信是与其它语言都不太一样的地方，像它的$表示操作的是单个值，是一个元素，注意：可以是标量变量，也可以是数组或者散列中的某个元素。 如： $a   $array[1]   $hash{'key'}都表示一个元素 而对于@符号，它所代表的是数组，多个值，或者说，一个集合，代表你操作的是多个元素 数组和散列也是Perl中仅有的具备集合性质的数据

说起Perl的Sort，自然会想到她的精巧，第一次体会到Perl的魅力就是看到她的精巧。 首先说明下sort的一些注意点，默认以UTF-8方式排序，默认的两个操作符是$a 与 $b 下面，就从最简单的sort形式讲起， my @sortted_list = sort {$a $b}@list 这一句就将@list按从小到大的方式排序后赋值给@sortted_list，$a