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

fkiori

部分代碼與其他朋友的雷同，甚至一樣。沒(méi)辦法
看到題目晚。。。
呵呵

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;

復(fù)制代碼

xiucai315

回復(fù) 1# 無(wú)風(fēng)之谷

1.

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

復(fù)制代碼

2.$x=()的結(jié)果是空。1.給一個(gè)標(biāo)量變量，一個(gè)數(shù)組或散列的標(biāo)量元素賦值，在右手邊就會(huì)以標(biāo)
   量環(huán)境計(jì)算
                    2.如果給一個(gè)數(shù)組或者散列，或者它們的片段賦值，在右手邊就會(huì)以列表
                    環(huán)境進(jìn)行計(jì)算，即便是該片段只選出了的一個(gè)元素
                    ()不是用來(lái)創(chuàng)建空的list,因?yàn)榭盏?)是處在標(biāo)量環(huán)境。

3.使用范圍操作符"..",1-3為1 .. 3, 5-8為 5 .. 8


4.$x[1]表示數(shù)組@x的第2個(gè)元素7，@x[1]表示二維數(shù)組@x的第0行的第二部分。

5.

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

復(fù)制代碼

6.

1. #/bin/usr/perl -w
   
2. #author ly@avg.pl  20110314
   
3. print ">please input a series number,divide with ',':";
   
4. #傳入一串?dāng)?shù)字
   
5. $numbers=<STDIN>;
   
6. chop $numbers;
   
7. @singels=split(/,/,$numbers);
   
8. 
   
9. #取得數(shù)字個(gè)數(shù)
   
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. }
    

復(fù)制代碼

7.

1. #usr/bin/perl -w
   
2. #auth:ly@guess.pl
   
3. print"\t let's begin guess magic number!^_^\t\n";
   
4. #生成秘?cái)?shù)
   
5. $magic_num=int(1+ rand 100);
   
6. #猜謎
   
7. while(1){
   
8. print">guess(1~100)：";
   
9. $guess=<STDIN>;
   
10. chop$guess;
    
11. #對(duì)輸入執(zhí)行判斷，是否越界或?qū)儆诿�令字�?br />
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. #猜數(shù)過(guò)程
    
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.         }

復(fù)制代碼

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

復(fù)制代碼

xiucai315

回復(fù)的晚了，主要是這幾天比較忙，沒(méi)有時(shí)間看，趁中午休息時(shí)，弄了一下，發(fā)現(xiàn)好多東西還沒(méi)看好，像ipc像進(jìn)程處理等等，希望對(duì)我上面的答案給個(gè)建議，謝謝。。。一直以來(lái)一個(gè)人用perl，大家都整shell，好孤獨(dú)啊。。

alabos

第1題：

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

復(fù)制代碼

第2題：



$x=(); 的結(jié)果是：  undef



列表位于標(biāo)量上下文是什么情況？ 列表的值依次賦給標(biāo)量。只有列表的最后一個(gè)值會(huì)被保存在變量中。



()是不是用來(lái)創(chuàng)建空的list ?  不是， 在上下文環(huán)境中， 它只是一個(gè)標(biāo)量。





第3題：



暫時(shí)空著





第4題：

4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？



$x[1] 是采用標(biāo)量的形式返回結(jié)果

@x[1] 是以列表形式返回�？梢詫�(xiě)成  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. 
    

復(fù)制代碼

第6題：

6.傳入一串?dāng)?shù)字并返回所有大于平均值的數(shù)字。

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. 
    

復(fù)制代碼

第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 "請(qǐng)輸入你猜測(cè)的數(shù)并按回車(chē)";
    
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. 
    

復(fù)制代碼

第8題,沒(méi)有時(shí)間寫(xiě)了. 呵呵! 下次有機(jī)會(huì)再參加!

brantc

本來(lái)還為錯(cuò)過(guò)大賽很遺憾，結(jié)果一看題目一題都不會(huì)。。。
學(xué)習(xí)呀學(xué)習(xí)呀

awk47

應(yīng)該通過(guò)郵箱發(fā)送郵件來(lái)參加，這樣直接就貼出來(lái)了，很難保證公平，呵呵

---一點(diǎn)小建議

中不央

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

天池怪獸_

看到了呢

ccl0326

什么時(shí)候舉辦個(gè)python啊