ChinaUnix技術(shù)實(shí)踐之三——Perl編程大賽

nizvoo

好些不會(huì)

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

對(duì)部分標(biāo)準(zhǔn)答案持懷疑態(tài)度。

qxt912

mark

y6cmE

呵呵，好久沒來，錯(cuò)過了。

南極雨

sub myfunc {

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

}

午夜凋零

第1題：

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

復(fù)制代碼

第2題：

1. $x的結(jié)果是空的，相當(dāng)于undef。
   
2. 列表位于標(biāo)量上下文中，返回列表最后一個(gè)元素。
   
3. ()可以用來創(chuàng)建空的list。

復(fù)制代碼

第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";

復(fù)制代碼

第4題：

1. $x[1]是數(shù)組中的一個(gè)元素，@x[1]是一個(gè)數(shù)組，只有一個(gè)元素。

復(fù)制代碼

第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";

復(fù)制代碼

第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. }

復(fù)制代碼

第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. }

復(fù)制代碼

第8題：

1. 這是網(wǎng)絡(luò)方面的嗎？一點(diǎn)也不會(huì)，抱歉。

復(fù)制代碼

feilong_36

我發(fā)現(xiàn)很多人沒有經(jīng)過詳細(xì)測(cè)試就把代碼貼出來了，大多數(shù)人可能覺得第一題很簡(jiǎn)單，其實(shí)大有文章。
先把我的答案貼出來：

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

復(fù)制代碼

我是主做C語言的，perl水平不高，經(jīng)過詳細(xì)測(cè)試后，終于理解到myfunc函數(shù)的返回值只有兩個(gè): 1和undef ,那就應(yīng)該在代碼里明確指出來。
沒時(shí)間仔細(xì)看前面帖子，簡(jiǎn)單翻了幾頁，發(fā)現(xiàn)很多人的代碼不會(huì)返回undef,最接近正確答案的是下面這個(gè)：

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

復(fù)制代碼

我的代碼只是把"return"改成 "undef" ,那個(gè)清晰度立馬就提高了不知多少倍。

非常支持這種比賽，只是希望大家寫代碼時(shí)考慮詳細(xì)點(diǎn)，多測(cè)試，努力提高代碼質(zhì)量。

feilong_36

媽的，看錯(cuò)日期了，1年前的帖子!!!!
平時(shí)幾乎不回帖的，難得回一個(gè)，居然是挖....

feilong_36

我錯(cuò)了，
$x?1:undef;是錯(cuò)誤的，賦值給數(shù)組時(shí)有問題，
條款10　如需空數(shù)組，請(qǐng)勿用undef賦值