Perl求中值

先就按这个标题了吧，其实是求数据的中值，如果不合适请大家见谅

参考数据，感谢网友提供的资料

http://perldoc.perl.org/perllol.html
http://blog.sina.com.cn/s/blog_5f8e03960100wq3r.html

大晚上的，闲来无事，碰巧遇到一批数据需要处理，就拿学习中的Perl来练手了。

程序想要实现的功能本来挺简单的，可由于水平限制，还是折腾了几个小时。

感觉自己还是花了精力和时间，发博文来给大家分享。欢迎批评指正。

源码中注释不明的地方，请留言指出，谢谢！

万语千言，不敌一张图
本程序想要实现的功能，见图1
注1：算中值，比如，'p001'的中值
注2：第一行就是程序中的‘说明行’示例

程序源码如下（参考资料已在博文前面注明，源码是本人自己写的，如果有小部分与网上相同，这个是不能避免的小概率事件）

#!usr/bin/perl -w
use strict;
use 5.014; # 更改为你的Perl版本
### powered by Nan Zhou .AT. Sichuan university
### version 0.0.1
### last update 01/18/13

die "Usage: perl midpoint.pl FileI