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

x9x9

第2題：結(jié)果是undef。列表位于標量上下文返回最后一個元素。()可以用來創(chuàng)建一個空列表，也常用來清空一個列表。

第4題：$x[1]和@x[1]的結(jié)果相同，都是7。前者都知道是數(shù)組中元素的表示方法。但后者這種寫法沒見過，感覺應(yīng)該是之前版本的寫法？

FenRagwort

#1

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

復(fù)制代碼

#2
1. $x = ()的結(jié)果是undef

2.列表在標量上下文返回其中最后一個變量或直接量在標量上下文的返回值。好像很繞口，解釋一下。
主要是列表中若有數(shù)組或哈希作為它的元素的問題，在標量上下文，列表中若有數(shù)組或哈希，該數(shù)組或哈希不會平坦化，而是當成單個的元素。若處在列表最后一個元素的位置，就返回該數(shù)組或哈希在標量上下文的返回值（數(shù)組為元素個數(shù)，哈希為0或3/8這樣的鍵/桶值）
所以@array = qw/a b c/; $s = (1,2,@array);這樣返回的是3（@array的元素個數(shù)），而不是c。所以嚴格點說，返回的是最后一個元素的標量值，而不是最后一個元素。
把列表放到標量上下文去通常不是good practice，因為這相當于我費半天勁寫了前面的元素，最后只要最后一個元素的標量值，如果use warnings了，會出現(xiàn)void context的警告

3. ()如果是在列表上下文，比如@a = ();那么它就是為了創(chuàng)建空列表或者空哈希%h = ()。如果是在標量上下文，不是純粹為了玩兒的話，它的目的應(yīng)該是為了強制給予列表上下文。比如說

1. @a = qw/a b/;
   
2. @b = qw/1 2 3 4/;
   
3. @c = qw/d e f/;
   
4. $s = (@a, @b, @c);
   
5. print $s; # 得到3，即列表最后元素@c在標量上下文的值

復(fù)制代碼

如果倒數(shù)第二行改成

1. $s = () = (@a, @b, @c);
   
2. print $s; # 得到9

復(fù)制代碼

中間的()實際相當于給了后面的列表一個列表上下文，讓它把@a、@b、@c都攤開，賦值給一個匿名數(shù)組，并立刻將這個匿名數(shù)組在標量上下文的值返回給$s（9就是@a、@b、@c全部元素的值）
另以splice舉例，In list context, returns the elements removed from the array. In scalar context, returns the last element removed.
如果我想得到的既不是移除的元素數(shù)組，也不是最后一個元素，而是它移除的元素個數(shù)
笨的方法是先用一個臨時數(shù)組接移除的元素，再把這個臨時數(shù)組賦值給標量

1. @foo = splice @array, 3;
   
2. $count = @foo;

復(fù)制代碼

但實際只要一行，不用引入新變量即可達到目的

1. $count = () = splice @array, 3;

復(fù)制代碼

#3
(1..3,5..

#4
$x[1]是@x的第二個元素
@x[1]是@x的第二個元素構(gòu)成的一個單元素數(shù)組切片

#5

1. @sorted = sort { -M($a) <=> -M($b) } glob "*";

復(fù)制代碼

#6

1. $sum += $_ foreach @nums;
   
2. $average = $sum / @num;
   
3. @above_average = grep {$_ > $average } @nums;

復(fù)制代碼

#7

1. my $secret_num = int(1 + rand 100);
   
2. while (1) {
   
3.     print "please input num('quit' or 'exit' to quit): ";
   
4.     my $get_num = <STDIN>;
   
5.     last if $get_num =~ /quit|exit|^\s*$/i;
   
6.     $result = $get_num <=> $secret_num;
   
7.     if ($result == 0) {
   
8.         print "yes!";
   
9.         last;
   
10.     }
    
11.     elsif ($result == -1) {
    
12.         print "too low\n";
    
13.     }
    
14.     else {
    
15.         print "too high\n";
    
16.     }
    
17. }

復(fù)制代碼

#8
完全不會，沒這需求...

FenRagwort

第三題會錯意了，重寫

1. @num = (1,2,3,5,6,7,8,12,14,15,16,17,18,20);
   
2. @string = @num;
   
3. foreach (0..$#num) {
   
4.     if ( ($num[$_] == $num[$_-1]+1) and ($num[$_] == $num[$_+1]-1) ) {
   
5.         $string[$_] = "-";
   
6.     }
   
7. }
   
8. $str = join ",", @string;
   
9. $str =~ s/,(-,)+/-/g;
   
10. print $str;

復(fù)制代碼

chenzq1604

{:3_191:}好久沒有寫了，生疏了：

1. 
   
2. 
   
3. 第一題:sub myfunc {
   
4.     # $x = ...;
   
5. 
   
6.     if ( $x ) {
   
7.         return 1;
   
8.     } else {
   
9.         return;
   
10.     }
    
11. }
    
12. 答：精簡為：
    
13. sub myfunc{
    
14.     $x?return 1:return;
    
15. }
    
16. 
    
17. 
    
18. 第二題：
    
19. $x=()結(jié)果是什么？列表位于標量上下文是什么情況？()是不是用來創(chuàng)建空的list？請解釋原因。
    
20. 答：
    
21. $x=()設(shè)置為undef,這句可以清空$x中存放的引用值、對象等等，一般用來釋放
    
22. 列表位于標量上下文返回是元素個數(shù)
    
23. ()可以用來創(chuàng)建空的list, ((),(),())=()
    
24. 
    
25. 
    
26. 
    
27. 第三題：1,2,3,5,6,7,8 如何合并成1-3,5-8？
    
28. 答：
    
29. my @array=(1,2,3,5,6,7,8);
    
30. my $head=shift @array;
    
31. my $mid=$head;
    
32. my @resume;
    
33. while (@array){
    
34.     my $x=shift @array;
    
35.     if ($x-1==$mid){
    
36.          $mid=$x;
    
37.      }else{
    
38.         push @resume,$head."-".$mid;
    
39.         $head=$x;
    
40.         $mid=shift @array;
    
41.     }
    
42.          push @resume,$head."-".$x  unless (@array);
    
43. }
    
44.   print join(",", @resume);
    
45. 
    
46.    
    
47. 第四題:@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？
    
48. 答：
    
49. $x[1]是指 @x數(shù)組中第二個元素，返回是一個值
    
50. @x[1]是包含數(shù)組片段  $x[1]的數(shù)組,返回的是個數(shù)組
    
51. 
    
52. 
    
53. 
    
54. 第五題: 用最短和優(yōu)的perl代碼對當前目錄下的文件和子目錄按修改時間進行排序。
    
55. 
    
56. print join "\n", ( sort {(-M $a)<=>(-M $b)} grep{ $_ ne ".."} (glob("*"),glob(".?*")));
    
57. 
    
58. 
    
59. 第六題  傳入一串數(shù)字并返回所有大于平均值的數(shù)字。
    
60. 答：
    
61. my @k=split ",",shift;
    
62. my $resume;
    
63. my $n=0;
    
64. foreach my $i(@k){
    
65.     $n++;
    
66.     $resume=$resume+$i;
    
67. }
    
68. $resume=$resume/$n;
    
69. my @rr=grep { $_ >$resume} @k;
    
70. print Dumper \@rr;
    
71. 
    
72. 
    
73. 第七題:
    
74. 答：
    
75. my ($k,$i);
    
76. print "please input the number:";
    
77. while  ($i=<STDIN>){
    
78. 
    
79.     chomp $i;
    
80.     $k=int(1+rand 100);
    
81.     print "the randam is $k \n";
    
82.     exit  if ($i eq "quit") or ($i eq "exit") or ($i =~/^\s+$/);
    
83.     next  if ($i !~/\d+/);
    
84.      $i>$k? print "too high\n": print "too low\n";
    
85.     print "right, you are hero~\n";exit if $i== $k;
    
86.     next;
    
87. }
    

復(fù)制代碼

chenzq1604

第八題

1. 
   
2. 
   
3. use strict;
   
4. use POE qw{
   
5. Component::Server::TCP
   
6. };
   
7. 
   
8. use constant PORT        => 7777;
   
9. 
   
10. main();
    
11. 
    
12. our %Sessions;
    
13. 
    
14. sub main {
    
15. 
    
16.    go_daemon();
    
17.    start();
    
18.    POE::Kernel->run();
    
19.    exit(0);
    
20. }
    
21. 
    
22. sub start {
    
23.    POE::Session->create(
    
24.        inline_states => {
    
25.        start => \&go_start,
    
26.        hup_sig => \&go_hup,
    
27.        }
    
28.    );
    
29. 
    
30.    POE::Component::Server::TCP->new(
    
31.        Alias              => 'daemon',
    
32.        Address            => "localhost",
    
33.        Port               => PORT,
    
34.        ClientInput        => \&client_input,
    
35.        },
    
36.    );
    
37. }
    
38. sub go_hup {
    
39.   $_[HEAP]->{stop}='HUP';
    
40.   $_[KERNEL]->sig_handled();
    
41.    go_stop();
    
42.    go_start();
    
43. }
    
44. 
    
45. sub go_start {
    
46.      $_[KERNEL]->alias_set('daemon');
    
47.      $_[KERNEL]->sig( HUP => 'sig_HUP');
    
48. }
    
49. 
    
50. 
    
51. sub go_stop {
    
52.    my ($kernel, $heap, $sender) = @_[ KERNEL, HEAP, ARG0 ];
    
53.    if ($heap->{stop_client_handler}) {
    
54.        $kernel->post($heap->{stop_client_handler}, 'response', 'OK:stop')
    
55.          if ref($heap->{stop_client_handler});
    
56.        delete $heap->{stop_client_handler};
    
57.    } else {
    
58.        $heap->{stop_client_handler} = $sender || 1;
    
59.        stop_module($kernel);
    
60.        $heap->{check_result} = 'stop';
    
61.    }
    
62. }
    
63. 
    
64. sub restart {
    
65.    my ($kernel, $heap, $sender) =
    
66.      @_[ KERNEL, HEAP, ARG0 ];
    
67.    if ($heap->{restart_client_handler}) {
    
68.        $kernel->post($heap->{restart_client_handler}, 'response', 'OK:restart')
    
69.          if ref($heap->{restart_client_handler});
    
70.        delete $heap->{restart_client_handler};
    
71.    } else {
    
72.        $heap->{restart_client_handler} = $sender || 1;
    
73.        stop_module($kernel);
    
74.        $heap->{check_result} = 'restart';
    
75.    }
    
76. }
    
77. 
    
78. 
    
79. sub stop_module {
    
80.    my $kernel = $_[0];
    
81.    for my $s (keys %Sessions) {
    
82.        $kernel->signal($s, 'TERM');
    
83.    }
    
84. 
    
85. }
    
86. 
    
87. 
    
88. 
    
89. sub go_daemon {
    
90.    my $child = fork;
    
91.    die "Can't fork: $!" unless defined($child);
    
92.    exit(0) if $child;
    
93.    POSIX::setsid();
    
94.    open(STDIN,  "</dev/null");
    
95.    open(STDOUT, ">/dev/null");
    
96.    open(STDERR, '>&STDOUT');
    
97.    umask(0);
    
98. }
    
99. 
    
100. 
     
101. sub client_input {
     
102.     my ( $heap, $input ) = @_[ HEAP, ARG0 ];
     
103.     $heap->{client}->put($input);
     
104.     if ($input eq "quit"){
     
105.    $_[KERNEL]->yield("shutdown");
     
106.     return;
     
107.     }
     
108. }
     
109. 
     

復(fù)制代碼

justlooks

1. 
   
2. 第1題
   
3. !!x
   

復(fù)制代碼

ontherd

perl 第五版白看了，一體都答不上來。

firedtoad

1

1. 請正確的精簡如下代碼。

sub myfunc {
    $x?$x:'';
}

firedtoad

2.
undef

firedtoad

2.
undef