ChinaUnix技术实践之三——Perl编程大赛

nizvoo

好些不會

suxiaoji

#!C:\Perl\bin\perl -w
use strict;
my $secret = int (1+rand 100);

print "Your guess: ";

while (my $guess = <>) {

    chomp $guess;

    if ($guess =~ (/[^\d+]|^\s*$|^quit$|^exit$/)) {
           print "You input error or say bye.";
           exit;
          }

    $guess > $secret ? print "Too high. You guess again: " : print "Too low.

Your guess again: ";

      exit if $guess == $secret;
}

fkiori

对部分标准答案持怀疑态度。

qxt912

mark

y6cmE

呵呵，好久没来，错过了。

南极雨

sub myfunc {

    # $x = ...;
    $x ?1: ;

}

午夜凋零

第1题：

1. sub myfunc{
   
2.     #my $x = shift;
   
3.     return 1 if $x;
   
4. }

复制代码

第2题：

1. $x的结果是空的，相当于undef。
   
2. 列表位于标量上下文中，返回列表最后一个元素。
   
3. ()可以用来创建空的list。

复制代码

第3题：

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my @a = (1, 2, 3, 5, 6, 7, 8, 10, 11);
   
6. my @b = @a;
   
7. my $b = shift @b;
   
8. my $c = $b;
   
9. my @c;
   
10. foreach ( @b ) {
    
11.     if ( $_ == $b + 1 ) {
    
12.     }
    
13.     else {
    
14.         push @c, "$c-$b";
    
15.         $c = $_;
    
16.     }
    
17.     $b = $_;
    
18. }
    
19. push @c, "$c-$b";
    
20. print "[@c]\n";

复制代码

第4题：

1. $x[1]是数组中的一个元素，@x[1]是一个数组，只有一个元素。

复制代码

第5题：

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my %hash = map { -M $_, $_ } glob "*";
   
6. print "@hash{sort {$a <=> $b} keys %hash}\n";

复制代码

第6题：

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my @a = 1..10;
   
6. my @b = &gt_ave(@a);
   
7. print "[@b]\n";
   
8. 
   
9. sub gt_ave {
   
10.     my $sum = 0;
    
11.     $sum += $_ for @_;
    
12.     return grep { $_ > $sum / @_ } @_;
    
13. }

复制代码

第7题：

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. 
   
5. my $a = int(1 + rand 4);
   
6. while (<>) {
   
7.     chomp $_;
   
8.     last if ( /^\s*$/ or $_ eq 'exit' or $_ eq 'quit' );
   
9.     do { print "Please input a number:\n" and next; } if /\D/;
   
10.     do { print "Bingo!\n" and last } if $_==$a;
    
11.     do { print "too low!\n" and next } if $_ < $a;
    
12.     do { print "too high!\n" and next } if $_ > $a;
    
13. }

复制代码

第8题：

1. 这是网络方面的吗？一点也不会，抱歉。

复制代码

feilong_36

我发现很多人没有经过详细测试就把代码贴出来了，大多数人可能觉得第一题很简单，其实大有文章。
先把我的答案贴出来：

1. sub myfunc{
   
2.         $x?1:undef;
   
3. }
   

复制代码

我是主做C语言的，perl水平不高，经过详细测试后，终于理解到myfunc函数的返回值只有两个: 1和undef ,那就应该在代码里明确指出来。
没时间仔细看前面帖子，简单翻了几页，发现很多人的代码不会返回undef,最接近正确答案的是下面这个：

1. sub myfunc{
   
2.         $x?1:return;
   
3. }
   

复制代码

我的代码只是把"return"改成 "undef" ,那个清晰度立马就提高了不知多少倍。

非常支持这种比赛，只是希望大家写代码时考虑详细点，多测试，努力提高代码质量。

feilong_36

妈的，看错日期了，1年前的帖子!!!!
平时几乎不回帖的，难得回一个，居然是挖....

feilong_36

我错了，
$x?1:undef;是错误的，赋值给数组时有问题，
条款10　如需空数组，请勿用undef赋值