请高手帮我看看程序，怎么会是死循环？

shisilei

1#!/usr/bin/perl
2use strict;
3use warnings;
4my @genes=qw(zgene1 agene2 mgene3 ygene4 sgene5 fgene6 lgene7);
5print "please enter your gene name here:\n";
6my $query=<STDIN>;
7chomp $query;
8my @sorted_genes=sort @genes;
9print @sorted_genes, "\n";
10my $foundflag=0;
11if (binary_search($query, @sorted_genes)) {
12        print "The gene query is known!\n";
13       
14}else {
15        print "The gene query is not known!\n";
16}
17exit;
18sub binary_search {
19my($query, @array)=@_;
20@array or return 0;
21my $begin=0;
22my $end=$#array;
23while (($end-$begin)>=0) {
24        my $mid_point=int ((($end-$begin)/2)+$begin);
25        print $array[$mid_point], ":", "@array[$begin...$end]","\n";
26        my $test=$query cmp $array[$mid_point];
27    if ($test==0) {
28                return $query;
29   }
30        elsif ($test==-1){
31                $end=$mid_point-1;}
32                elsif  {
33                        $end=$mid_point+1;
34                }
35}
36return 0;
37}

cdtits

将 binary_search($query, @sorted_genes) 的第二个参数改为引用吧
同时函数里面处理部分也要改一下！

shisilei

改为引用，什么意思，不是很明白，因为自己刚开始学习perl。


   

xmchenb

加上\,估计是这个意思:
binary_search($query, \@sorted_genes)

xmchenb

我运行下程序，子函数有BUG，最后一个elsif，应该改为else,然后运行，没有死循环。。。。。

shisilei

感谢xmchenb的热心指导，现在明白了，非常感谢！