看了小骆驼书上的课后题答案不是很懂

marsxxy

十三章中的第三题：

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. my ($string, $pos, $sub);
   
7. my @places;
   
8. for($pos = -1; -1 !=
   
9.                 ($pos = index
   
10.                 +$string,
    
11.                 +$sub,
    
12.                 +$pos
    
13.                 +1
    
14.                         );
    
15. push @places, ((((+$pos))))) {
    
16.         'for ($pos != 1; # ;$pos++) {
    
17.          print "position $pos\n";#;';#' } pop @places;
    
18. }
    

复制代码

大牛们帮解释一下吧

[ 本帖最后由 marsxxy 于 2009-6-17 10:52 编辑 ]

小公猫

哪一句不懂啊？

wxlfh

答案中有解释的嘛。实话说，的确不好懂，我都看了好几遍了，还是晕乎晕乎的。

marsxxy

原帖由 wxlfh 于 2009-6-17 20:54 发表
答案中有解释的嘛。实话说，的确不好懂，我都看了好几遍了，还是晕乎晕乎的。

这个题没解释

wiliiwin

我怎么看这个程序如此的别扭呢

yashiro_lj

小骆驼中对于这段程序的说明，原话如下

On the other hand, if you were wanted to obfuscate your code (shame on you), you could create a monster like this (shame on us):
That trickier code works in place of the original tricky for loop. You should be able to decipher that one or obfuscate code to amaze your friends and confound your enemies. Use these powers only for good, never for evil.

代码格式整理之后

1. for (my $pos = -1;
   
2.     -1 != ($pos = index +$string, +$sub, +$pos+1);
   
3.     push @places, ((((+$pos)))))
   
4. {
   
5.         'for ($pos != 1; # ;$pos++) {
   
6.           print "position $pos\n";#;';#' } pop @places;
   
7. }
   

复制代码

这段代码就是一个index函数的升级+迷惑版 ，功能也是在$string中寻找$sub出现的$pos并且push到@places数组中。同index不同的一点是，这段代码能够循环查找，如果$string为"work and work again"，$sub为"work"，则@places的值为0和9。功能完全是通过for循环的头部来实现的，循环体内（花括号内）是一个被丢弃的字符串+注释，完全是迷惑用的