匹配的问题 （已解决，谢谢各位.）

IT-庸才

@ARGV=shift;
...........
...........
foreach $abc(@efg){
        chomp $ARGV[0];
        if($abc=/$ARGV[0]/){
                ..............
        }
}
如果我从键盘输入的值在数组的第二个值中可以匹配，那么需要循环到下次才能匹配，其实我想每次键盘输入的值都能在第一次匹配上，有好方法么？？

liyangole

lz,我用hash slices方法，不用匹配，你具体的需求不明，我先贴上code，看看有没有帮助哈：
#!/usr/bin/perl -w
while (1){
print "it is number: ";
$ARGV =  <STDIN>;
chomp($ARGV);
#@ARGV = shift;
#print $ARGV,"\n";
@efg=qw(12 34 56 78 99 hello hi);
@hash{@efg}=(0..$#efg);
# foreach (@efg){
#      $hash{$_} += 1;
#}
#while(($key,$value)=each(%hash)){
#  print "$key = $value\n";
#}
#print $hash{$ARGV[0]},"\n";
if($hash{$ARGV} ){
  print $ARGV,"\n";
  last;
}
else {
  next;
}
}

liyangole

修改 一下 @hash{@efg}=(0..$#efg);   改为 @hash{@efg}=(1..$#efg+1);

IT-庸才

恩，你这个方法估计不能满足我的要求，这是我QQ  287915714 麻烦加我一下，我给你仔细描述~这个里面说不清楚~谢谢~

李寻欢92

回复 1# IT-庸才


    你要干什么，给输入，输出

tyz

回复 1# IT-庸才


    完全没明白你的意思

hu145165

需求不明不白，没任何条件，没任何约束，让你做一功能出来，结果还要求这，要求那的。
国软普遍存在的情况

liyangole

回复 4# IT-庸才


    刚刚看到信息，你把需求描述一下，这边高手云集，都帮你看看吧