xuan_oscar的专栏

耐心看完本文, 相信你今后在unicode处理上不会再有什么问题.本文内容适用于perl 5.8及其以上版本.perl internal form在Perl看来, 字符串只有两种形式. 一种是octets, 即8位序列, 也就是我们通常说的字节数组. 另一种utf8编码的字符串,perl管它叫string. 也就是说: Perl只认识两种编码: Ascii(oc

又重新看了下perl正则表达式，又有了新的感触他实在是太强大了，在这向大家共享一些小技巧1 拓展的正则表达式if($string =~ /^([+-]?)(?=/d|/./d)/d*(/./d*)?([Ee]([+-]?/d+))?$/)；判断是否是数字，(?=/d|/./d)是一个扩展式（？KEY）是用来发现潜在可能情况 （？＝）向前检测如果匹配上返回一个真是值 ；（？！）与其相反;向后方向（？

简简单单讲map（一）map函数map BLOCK LISTmap EXPR, LISTmap函数对LIST里的每个元素按BLOCK或EXPR进行计算，遍历LIST时，临时将LIST里的每个元素赋值给$_变量。map对每次的计算返回一个结果列表，它在列表上下文里计算BLOCK或EXPR。每个LIST元素可能在输出列表里产生0个，1个，或多个元素。

mock测试：就是在测试过程中，对于某些不容易构造或者 不容易获取的对象，用一个虚拟的对象来创建以便测试的测试方法。mock对象：这个虚拟的对象就是mock对象。mock对象就是真实对象在调试期间的代替品。mock对象使用范畴：真实对象具有不可确定的行为，产生不可预测的效果，（如：股票行情，天气预报） 真实对象很难被创建的 真实对象的某些行为很难被触发 真实对象实际上还不存在的（和其他

 #! /usr/bin/perl -wuse strict;use POSIX;use Data::Dumper;my @data = &generate_rand( 100  );#(3, 5,4, 43,990, 43,54, 2, 7, 45);#print Insert_sort(/@data);#&Selection_sort(/@data);#&merge_sort ( /@