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

x9x9

第2题：结果是undef。列表位于标量上下文返回最后一个元素。()可以用来创建一个空列表，也常用来清空一个列表。

第4题：$x[1]和@x[1]的结果相同，都是7。前者都知道是数组中元素的表示方法。但后者这种写法没见过，感觉应该是之前版本的写法？

FenRagwort

#1

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

复制代码

#2
1. $x = ()的结果是undef

2.列表在标量上下文返回其中最后一个变量或直接量在标量上下文的返回值。好像很绕口，解释一下。
主要是列表中若有数组或哈希作为它的元素的问题，在标量上下文，列表中若有数组或哈希，该数组或哈希不会平坦化，而是当成单个的元素。若处在列表最后一个元素的位置，就返回该数组或哈希在标量上下文的返回值（数组为元素个数，哈希为0或3/8这样的键/桶值）
所以@array = qw/a b c/; $s = (1,2,@array);这样返回的是3（@array的元素个数），而不是c。所以严格点说，返回的是最后一个元素的标量值，而不是最后一个元素。
把列表放到标量上下文去通常不是good practice，因为这相当于我费半天劲写了前面的元素，最后只要最后一个元素的标量值，如果use warnings了，会出现void context的警告

3. ()如果是在列表上下文，比如@a = ();那么它就是为了创建空列表或者空哈希%h = ()。如果是在标量上下文，不是纯粹为了玩儿的话，它的目的应该是为了强制给予列表上下文。比如说

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在标量上下文的值

复制代码

如果倒数第二行改成

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

复制代码

中间的()实际相当于给了后面的列表一个列表上下文，让它把@a、@b、@c都摊开，赋值给一个匿名数组，并立刻将这个匿名数组在标量上下文的值返回给$s（9就是@a、@b、@c全部元素的值）
另以splice举例，In list context, returns the elements removed from the array. In scalar context, returns the last element removed.
如果我想得到的既不是移除的元素数组，也不是最后一个元素，而是它移除的元素个数
笨的方法是先用一个临时数组接移除的元素，再把这个临时数组赋值给标量

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

复制代码

但实际只要一行，不用引入新变量即可达到目的

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

复制代码

#3
(1..3,5..

#4
$x[1]是@x的第二个元素
@x[1]是@x的第二个元素构成的一个单元素数组切片

#5

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

复制代码

#6

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

复制代码

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

复制代码

#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;

复制代码

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=()结果是什么？列表位于标量上下文是什么情况？()是不是用来创建空的list？请解释原因。
    
20. 答：
    
21. $x=()设置为undef,这句可以清空$x中存放的引用值、对象等等，一般用来释放
    
22. 列表位于标量上下文返回是元素个数
    
23. ()可以用来创建空的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]的区别是什么？
    
48. 答：
    
49. $x[1]是指 @x数组中第二个元素，返回是一个值
    
50. @x[1]是包含数组片段  $x[1]的数组,返回的是个数组
    
51. 
    
52. 
    
53. 
    
54. 第五题: 用最短和优的perl代码对当前目录下的文件和子目录按修改时间进行排序。
    
55. 
    
56. print join "\n", ( sort {(-M $a)<=>(-M $b)} grep{ $_ ne ".."} (glob("*"),glob(".?*")));
    
57. 
    
58. 
    
59. 第六题  传入一串数字并返回所有大于平均值的数字。
    
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. }
    

复制代码

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. 
     

复制代码

justlooks

1. 
   
2. 第1题
   
3. !!x
   

复制代码

ontherd

perl 第五版白看了，一体都答不上来。

firedtoad

1

1. 请正确的精简如下代码。

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

firedtoad

2.
undef

firedtoad

2.
undef