大家来做几个perl小练习

KornLee

最初由 libinary 发表
我的第一题：

2. #! /usr/bin/perl -w
4. for($i = 1; $i <= 100; $i++){
5.   if($i % 2){
6.     push(@odd, $i);
7.   }else{
8.     push(@even, $i);
9.   }
10.   if($i =~ /[1,2,7]$/){
11.     push(@end, $i);
12.   }
13. }
15. print join(", ", @even), "\n\n";
16. print join(", ", @odd), "\n\n";
17. print join(", ", @end), "\n";

复制代码

强就一个字~

x11

把libinary的再删减一下，huh...

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. for($i = 1; $i <= 100; $i++){
   
5.   if($i =~ /[1,2,7]$/){
   
6.     push(@end, $i);
   
7.   }
   
8.   push(@odd, $i++);
   
9.   push(@even, $i);
   
10. }
    
11. 
    
12. print join(", ", @even), "\n\n";
    
13. print join(", ", @odd), "\n\n";
    
14. print join(", ", @end), "\n";
    

复制代码

moonhalf

好像有一点问题。 如果这样循环，以2结尾的数都被

1. 
   
2. push(@odd, $i++)
   

复制代码

跳过去了。

最初由 x11 发表
把libinary的再删减一下，huh...

1. 
   
2. #! /usr/bin/perl -w
   
3. 
   
4. for($i = 1; $i <= 100; $i++){
   
5.   if($i =~ /[1,2,7]$/){
   
6.     push(@end, $i);
   
7.   }
   
8.   push(@odd, $i++);
   
9.   push(@even, $i);
   
10. }
    
11. 
    
12. print join(", ", @even), "\n\n";
    
13. print join(", ", @odd), "\n\n";
    
14. print join(", ", @end), "\n";
    

复制代码

勒色

我是新手，思路没什么新意。

1. #!/usr/bin/perl
   
2. 
   
3. for ($i=1; $i<=100; $i++)
   
4. {
   
5.    if ($i%2==0)
   
6.      {
   
7.         push (@even_array,$i);
   
8.      }
   
9.    else
   
10.      {
    
11.         push (@odd_array,$i);
    
12.      }
    
13.    $_=$i;
    
14.    if (/1$|2$|7$/)
    
15.      {
    
16.         push (@array_127,$i)
    
17.      }
    
18. }
    
19. print "Even Number is : @even_array\n";
    
20. print "\n";
    
21. print "Odd Number is : @odd_array\n";
    
22. print "\n";
    
23. print "Ending is 1 or 2 or 7 : @array_127\n";

复制代码

勒色

第二题

1. #!/usr/bin/perl
2. @array=(1..100);
3. for ($i=1;$i<=100;$i++)
4. {
5. $j=pop (@array);
6. push (@anti_array,$j);
7. }
8. print "@anti_array";

复制代码

sodora

能不能不用循环？

2. #!/usr/bin/perl
3. print join("\n",grep{$_ % 2 == 0} (1..100));

复制代码

2. #!/usr/bin/perl
3. print join("\n",grep{$_ % 2 == 1} (1..100));

复制代码

2. #!/usr/bin/perl
3. print join("\n",grep{$_ =~ /[127]$/} (1..100));

复制代码

2. #!/usr/bin/perl
3. print join("\n",reverse(1..100));

复制代码

tandkzy

前两题都很容易。我直接用数学方法来解第一题。

1. #!/usr/bin/perl -w
   
2. #本程序用来打印
   
3. #1-100的所有偶数
   
4. #1-100的所有奇数
   
5. #1-100里所有以1、2、7结尾的数
   
6. 
   
7. for(my $i=1;$i<=100;$i++){
   
8.     if (!($i % 2)){
   
9.         print "$i\t";
   
10.     }
    
11. }
    
12. print "\n";
    
13. 
    
14. for(my $i=1;$i<=100;$i++){
    
15.     if ($i % 2){
    
16.         print "$i\t";
    
17.     }
    
18. }
    
19. print "\n";
    
20. for(my $i=1;$i<=100;$i++){
    
21.     if (($i % 10)==1){
    
22.         print "$i\t";
    
23.     };
    
24.      if (($i % 10)==2){
    
25.         print "$i\t";
    
26.      };
    
27.      if (($i % 10)==7){
    
28.         print "$i\t";
    
29.      };
    
30. }
    
31. print "\n";
    

复制代码

第二题不用说。第三题还要好好了解下命令开关（如果可以自己写循环也很容易）第四题的那个回文的条件不明白是什么意思（我学perl没多久），不知道能否请楼主再解释一下。最后一题的问题在于perl的紧凑语法。当循环内容较简单的时候，可以把它们写在一行，循环的内容在最前面，然后是循环关键词和循环条件。可以的话还可以把循环测试条件的括号省掉。（最后一题的内容在perl入门（O'Reilly）一书中有很详细的解释）