一个grep疑问

wsliuhao

昨天看了仙子的简简单单grep，今天做实验发现了一个疑问
code如下：
---------------------------------------------------------------------------------
my @array = qw(200 102 101 115 126 110 112 105 111 121);
my $exist = grep(200,@array);
print "$exist\n";
----------------------------------------------------------------------------------

输出的是10，也就是数组的长度;
然后发现除了将grep中的200用0替换，匹配的结果为0，剩下无论用什么代替，匹配的结果都是10!!
这个现象是怎么回事?

ps:
再有一个小问题; unix调试perl脚本查找排除错误，但要保证脚本不运行应该怎么做?
我写的脚本是操作重要数据库的，要确定没有错误才敢执行，现在的调试工作弄的我心惊肉跳，有没有unix下调试perl的软件呢?

alexru

10是匹配的次数
perl -d $0

alexru

试试这个

1. 
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @array = qw(200 102 101 115 126 110 112 105 111 121);
   
6. my $exist = grep(/200/,@array);
   
7. print $exist;
   

复制代码

alexru

grep BLOCK LIST
grep EXPR,LIST
        This is similar in spirit to, but not the same as, grep(1) and
        its relatives. In particular, it is not limited to using regular
        expressions.

        Evaluates the BLOCK or EXPR for each element of LIST (locally
        setting $_ to each element) and returns the list value
        consisting of those elements for which the expression evaluated
        to true. In scalar context, returns the number of times the
        expression was true.

            @foo = grep(!/^#/, @bar);    # weed out comments

        or equivalently,

            @foo = grep {!/^#/} @bar;    # weed out comments

        Note that $_ is an alias to the list value, so it can be used to
        modify the elements of the LIST. While this is useful and
        supported, it can cause bizarre results if the elements of LIST
        are not variables. Similarly, grep returns aliases into the
        original list, much as a for loop's index variable aliases the
        list elements. That is, modifying an element of a list returned
        by grep (for example, in a "foreach", "map" or another "grep")
        actually modifies the element in the original list. This is
        usually something to be avoided when writing clear code.

wsliuhao

多谢alexru 啦
唉，还是我看的不仔细，把//忽略了

wsliuhao

perl -d $0  
怎么使用啊，不是要手动一行一行查找错误吧，有没有使用文档呢?

nkcsx

ps:
再有一个小问题; unix调试perl脚本查找排除错误，但要保证脚本不运行应该怎么做?
我写的脚本是操作重要数据库的，要确定没有错误才敢执行，现在的调试工作弄的我心惊肉跳，有没有unix下调试perl的软件呢?

这个用perl -wc就可以了