初学者 $_的一个问题

bull_cattle

#!/usr/bin/perl
my $grid,%count,@locate;
for(1..10){
        $grid=int(rand 100);
        $count{$grid}++;
        redo if $count{$grid}>1;
}
@locate=keys %count;
for(1..100)
{
       $match=grep(/$_/, @locate);   #这里为什么$_的值为什么不是每次循环的值，而是1到100的所有值？应当如何解决？
       if (match!=0){     
              print "x ";
       }
       else {
               print ". ";
        }
        print "\n" if $_%10==0;
}
#这种代码风格有什么问题吗？因为是刚学perl，不对地方可以趁早改正，谢谢！

x9x9

好像有点儿问题~有点太随性了~其实Perl是很严谨的~

bull_cattle

回复 2# x9x9


    清具体谈谈好吗？不太懂，

ttcn_cu

Code before strictures are enabled at line 2, column 1.  See page 429 of PBP.  Severity: 5

xfoucs

my $grid,%count,@locate; #只定义了一个变量 $grid
$match=grep(/$_/, @locate);#这里的$_是@locate里的元素，不是for循环里的列表值

bull_cattle

回复 5# xfoucs


    多谢指点～～
   print "\n" if $_%10==0;     #这里的$_是不是依然是for循环的值

lhui01

grep不是这样用的
如果要判断元素是否在数组里，这样写：my $match = $_ ~~ @locate;
另外 match!=0 也错了

bull_cattle

回复 7# lhui01


    ~~是5.10的吧，如果不支持呢，该用什么办法呢？
    match！=0 是笔误，^_^

lhui01

回复 8# bull_cattle

用grep要麻烦一些

1. for my $i ( 1 .. 100 ) {
   
2.     my $match = grep $i == $_, @locate;
   
3.     $match?print "x ":print ". ";
   
4.     print "\n" if $i % 10 == 0;
   
5. }
   

复制代码

bull_cattle

回复 9# lhui01


    真是太感谢了～～