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

fkiori

部分代码与其他朋友的雷同，甚至一样。没办法
看到题目晚。。。
呵呵

iLRainyday

我就掺和第三题吧

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. 
   
7. my $string = '1,2,3,5,6,7,8,10,11,12,13,14';
   
8. my ($range) = $string =~ m/(\d+)$/;
   
9. my @numbers = (1..$range);
   
10. my @keys = split /,/, $string;
    
11. 
    
12. my %hash;
    
13. @hash{@keys} = undef;
    
14. my @missing_numbers = grep {!exists $hash{$_} } @numbers;
    
15. 
    
16. foreach (@missing_numbers) {
    
17.     $numbers[$_ - 1] = ',';
    
18. }
    
19. 
    
20. my $result = join " ", @numbers;
    
21. $result =~ s/(\d+).+?(\d+)(?=\s,|$)/$1-$2/g;
    
22. print $result;

复制代码

xiucai315

回复 1# 无风之谷

1.

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

复制代码

2.$x=()的结果是空。1.给一个标量变量，一个数组或散列的标量元素赋值，在右手边就会以标
   量环境计算
                    2.如果给一个数组或者散列，或者它们的片段赋值，在右手边就会以列表
                    环境进行计算，即便是该片段只选出了的一个元素
                    ()不是用来创建空的list,因为空的()是处在标量环境。

3.使用范围操作符"..",1-3为1 .. 3, 5-8为 5 .. 8


4.$x[1]表示数组@x的第2个元素7，@x[1]表示二维数组@x的第0行的第二部分。

5.

1. #/usr/bin/perl -w
   
2.        #使用qx带有命令的返回值
   
3.         @sortdir=qx/ls -lt/;
   
4.        print @sortdir;

复制代码

6.

1. #/bin/usr/perl -w
   
2. #author ly@avg.pl  20110314
   
3. print ">please input a series number,divide with ',':";
   
4. #传入一串数字
   
5. $numbers=<STDIN>;
   
6. chop $numbers;
   
7. @singels=split(/,/,$numbers);
   
8. 
   
9. #取得数字个数
   
10. $count=@singels;
    
11. 
    
12. #取平均值
    
13. $sum=0;
    
14. foreach $singel(@singels){
    
15.                
    
16.                   $sum+=$singel;
    
17. 
    
18. }
    
19. 
    
20. #打印正确答案
    
21. print "$sum '/' $count = $avg\n";
    
22. foreach $singel(@singels){
    
23.                 if($singel>$avg){
    
24.                         print "$singel\n";
    
25.         }
    
26. }
    

复制代码

7.

1. #usr/bin/perl -w
   
2. #auth:ly@guess.pl
   
3. print"\t let's begin guess magic number!^_^\t\n";
   
4. #生成秘数
   
5. $magic_num=int(1+ rand 100);
   
6. #猜谜
   
7. while(1){
   
8. print">guess(1~100)：";
   
9. $guess=<STDIN>;
   
10. chop$guess;
    
11. #对输入执行判断，是否越界或属于命令字符
    
12.      if(int($guess)>100 or int($guess)<1){
    
13.                 if($guess=="quit" or $guess=="exit" or $guess=""){
    
14.                                                 last;
    
15.                                 }
    
16.         print"your input is overlap!!!try again\n";
    
17.              }
    
18. #猜数过程
    
19.      if(int($guess)>$magic_num ){
    
20.      print"too high...\ntry again\n";       
    
21.              }       
    
22.      if(int($guess)<$magic_num ){
    
23.      print"too low...\ntry again\n";       
    
24.              }       
    
25.      if(int($guess)==$magic_num){
    
26.      print "^_^,that's right!\n";
    
27.      last;       
    
28.              }       
    
29.        
    
30.         }

复制代码

8.

1. #!/usr/bin/perl -w
   
2. use IO::Socket;
   
3. use Net::hostent;
   
4. 
   
5. print ">give a service port:";
   
6. $PORT = <STDIN>;       
   
7. chop $PORT;
   
8. 
   
9. $server = IO::Socket::INET->new( Proto => 'tcp',  LocalPort => $PORT,  Listen    => SOMAXCONN,  Reuse     => 1);
   
10. die "can't setup server" unless $server;
    
11. print "[Server $0 accepting clients]\n";
    
12. 
    
13. while ($client = $server->accept()) {
    
14.          $client->autoflush(1);
    
15.          $hostinfo = gethostbyaddr($client->peeraddr);
    
16.          if ($kidpid) {         
    
17.          while ( $line=<$client>) {
    
18.                   next unless /\S/;             # blank line
    
19.                      if    (/quit|exit/i)    {
    
20.                              last;         
    
21.                              }         
    
22.                     else {       print STDOUT $line;     }   
    
23.                    }
    
24.         kill("HUP", $kidpid);}
    
25.         else{
    
26.                              close $client; }
    
27. }

复制代码

xiucai315

回复的晚了，主要是这几天比较忙，没有时间看，趁中午休息时，弄了一下，发现好多东西还没看好，像ipc像进程处理等等，希望对我上面的答案给个建议，谢谢。。。一直以来一个人用perl，大家都整shell，好孤独啊。。

alabos

第1题：

1. 
   
2. 
   
3. sub myfunc
   
4. 
   
5. {
   
6. 
   
7.         #my $x = ...;
   
8. 
   
9. 
   
10. 
    
11.         return $x ?  1 :  0;
    
12. 
    
13. }
    
14. 
    

复制代码

第2题：



$x=(); 的结果是：  undef



列表位于标量上下文是什么情况？ 列表的值依次赋给标量。只有列表的最后一个值会被保存在变量中。



()是不是用来创建空的list ?  不是， 在上下文环境中， 它只是一个标量。





第3题：



暂时空着





第4题：

4.@x=(5,7,9); $x[1]与@x[1]的区别是什么？



$x[1] 是采用标量的形式返回结果

@x[1] 是以列表形式返回。可以写成  my ($x1,$x2) = @x[0,1];



第5题:

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. use strict;
   
6. 
   
7. use warnings;
   
8. 
   
9. 
   
10. 
    
11. my @files = <C:/*>;
    
12. 
    
13. 
    
14. 
    
15. &new_find(\@files);
    
16. 
    
17. 
    
18. 
    
19. #------------------------------------------------------------------------
    
20. 
    
21. sub new_find
    
22. 
    
23. {
    
24. 
    
25.         my $files = shift;
    
26. 
    
27. 
    
28. 
    
29.         &print_data($files);
    
30. 
    
31.        
    
32. 
    
33.         foreach my $file (@{$files})
    
34. 
    
35.         {
    
36. 
    
37.                 if (-d $file)
    
38. 
    
39.                 {
    
40. 
    
41.                         my @files = <$file/*>;
    
42. 
    
43.                         &new_find(\@files);
    
44. 
    
45.                 }
    
46. 
    
47.         }
    
48. 
    
49. }
    
50. 
    
51.        
    
52. 
    
53. 
    
54. 
    
55. sub print_data
    
56. 
    
57. {
    
58. 
    
59.         my $dt = shift;
    
60. 
    
61.         if  (scalar @$dt > 0)
    
62. 
    
63.         {
    
64. 
    
65.                 my @files =  sort { (-M $a) <=> (-M $b) } @{$dt};
    
66. 
    
67.                 print '-'x80,"\n";
    
68. 
    
69.                 print "$_\n" foreach (@files);
    
70. 
    
71.         }
    
72. 
    
73. }
    
74. 
    
75. 
    
76. 
    

复制代码

第6题：

6.传入一串数字并返回所有大于平均值的数字。

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. use strict;
   
6. 
   
7. use warnings;
   
8. 
   
9. 
   
10. 
    
11. 
    
12. 
    
13. my $str = <>;
    
14. 
    
15. my @num = (split /\s+/,$str);
    
16. 
    
17. 
    
18. 
    
19. my $abc = &get_up_average(\@num);
    
20. 
    
21. 
    
22. 
    
23. print "@{$abc}\n";
    
24. 
    
25. 
    
26. 
    
27. #====================================
    
28. 
    
29. sub get_up_average($)
    
30. 
    
31. {
    
32. 
    
33.         my $num = shift;
    
34. 
    
35.         my ($sum,$c,@up_ave) ;
    
36. 
    
37.        
    
38. 
    
39.         foreach  (@$num)
    
40. 
    
41.         {
    
42. 
    
43.                 $sum += int($_);
    
44. 
    
45.                 $c++;
    
46. 
    
47.         }
    
48. 
    
49.        
    
50. 
    
51.         my $average = $sum / $c;
    
52. 
    
53.        
    
54. 
    
55.         @$num = reverse sort @$num ;
    
56. 
    
57. 
    
58. 
    
59.         foreach  (@$num)
    
60. 
    
61.         {
    
62. 
    
63.                 if ($_ > $average)
    
64. 
    
65.                 {
    
66. 
    
67.                         push @up_ave,$_;
    
68. 
    
69.                 }
    
70. 
    
71.                 else
    
72. 
    
73.                 {
    
74. 
    
75.                         last;
    
76. 
    
77.                 }
    
78. 
    
79.         }
    
80. 
    
81. 
    
82. 
    
83.         return \@up_ave;
    
84. 
    
85. }
    
86. 
    

复制代码

第7题

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. use strict;
   
6. 
   
7. use warnings;
   
8. 
   
9. 
   
10. 
    
11. my $n  = int(1 + rand 100);
    
12. 
    
13. 
    
14. 
    
15. while (1)
    
16. 
    
17. {
    
18. 
    
19.         print "请输入你猜测的数并按回车";
    
20. 
    
21.         my $in = <>;
    
22. 
    
23.         chomp($in);
    
24. 
    
25.         last if ($in =~ /quit|exit|$n/);
    
26. 
    
27. 
    
28. 
    
29.         $n > $in ? print "too low\n" : print "too high\n";
    
30. 
    
31. }
    
32. 
    

复制代码

第8题,没有时间写了. 呵呵! 下次有机会再参加!

brantc

本来还为错过大赛很遗憾，结果一看题目一题都不会。。。
学习呀学习呀

awk47

应该通过邮箱发送邮件来参加，这样直接就贴出来了，很难保证公平，呵呵

---一点小建议

中不央

。。。。。。。。。。。。。

天池怪兽_

看到了呢

ccl0326

什么时候举办个python啊