求会perl的朋友帮忙看看啊

zengxuli

a   b
1   -1
1   2
1   3
2   4
2   5
2   7
3   8
3   9
3   0

zengxuli

阿偶  偶的是1083915327哈回复 20# stanley_tam


   

stanley_tam

额，说你的，偶加你

zengxuli

恩呢，刚刚也看到你回的另一个帖子了，后来加了些东西，现在的问题是程序一跑就死循环了，找不出来**逻辑问题额，你方便说下q号吗，想让你给我看看呢，谢谢啦回复 18# stanley_tam


   

stanley_tam

用正则表达式匹配，例如：$line =~ m{frequency}i， 如果匹配成功就说明那行有frequency，后面的i是case insensitive,大小写不敏感。成功返回值为1，否则为0，回复 17# zengxuli


   

zengxuli

oh,44行那个懂了什么意思了，43行是在.txt文件中查找数值，来进行判断，如果一个文本中下面还有这样的数值，而我只是想要统计贴出来的这一部分，那么我想的就是查找"frequency","---------"这样的字符然后通过标记1或者是0,来进行标记，然后下面再判断是1的话就进行相应的数值统计。那么我查找某一行中的"frequency"和"--------"这样的字符该用怎样的语句来查找呢？回复 15# stanley_tam


   

zengxuli

oh酱紫的，那44行后面跟的那个[0,5]是什么意思呢回复 15# stanley_tam


   

stanley_tam

get_fh()就是get file handler，拿到文件句柄。IO:ir是模块操作文件夹的，可以参考http://perldoc.perl.org/IO/Dir.html，建议采用rubyish的方法，用glob，函数get_txt_from可以改为：

1. sub get_txt_from {
   
2.     my ($dir) = @_;
   
3.     my @files = glob "$dir/*.txt"
   
4.     return \@files;
   
5. }

复制代码

不过就不能得到后缀是大写的.TXT文件
回复 14# zengxuli


   

zengxuli

哦哦，还有那个get_fh（）函数没懂额，第4行的use IO:ir;是什么意思啊？还有一个就是这个结果是以什么方式显示的呢？能不能直接将结果输出到excel表中呢，sheet1中存放统计的各个区间的g值得分布，sheet2中存放当b值一定时，g值的分布情况，如果要实现这样的结果的话应该怎么做呢回复 13# stanley_tam


   

stanley_tam

匹配2位或以上数字开头且后面接空格的行，后回复 12# zengxuli