多线程以及对数组的互斥操作的演示程序

Perl语言传统上可以对多进程提供很好的支持方式,但是多进程方式降消耗掉很多内存，有的时候经常会出现一个进城占用10多M的内存的情况。从5.6版本开始Perl已经开始部分的支持多线程，而在5.8版本中进一步的得到了完善，不过目前国内对于Perl多线程编程方面的资料相对较少，由于工作上的原因可能会使用到多线程方面的东西所以写了一个测试程序，运行以后基本可以满足需求，再此与大家共享一下。本程序在Windows 2003 + Cygwin 1.5 + Perl5.82 环境下册是通过，理论上在Linux下也可以正常运行