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

xfoucs

回复 9# xfoucs


    3. 1,2,3,5,6,7,8 如何合并成1-3,5-8？
这道题也不会。。。


------------------------------------------------
4.@x=(5,7,9); $x[1]与@x[1]的区别是什么？
#########################################
$x[1]是数组第二个元素标量7
@x[1]是数组切片后的只含一个元素7的列表

刚看完 learning perl 。。。

#########################################

Monox

5.

1. 
   
2. #!/usr/bin/env perl
   
3. 
   
4. use 5.12.0;
   
5. 
   
6. my @sorted = map { $_->[1] } sort { $a->[0] <=> $b->[0] } map { [-M $_, $_] } glob "*";
   
7. say join "\t", @sorted;
   

复制代码

Monox

第8题 Socket 编程，从来没去管过。嗯，还有很多其他事情要做，就不去翻资料了，这题弃权。

Jerll

第六 七题好像是learning perl 里面的原题啊

aplah

全是高手啊，俺进来走个场

rubylc_unix

系统环境:
              This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi
              Copyright 1987-2009, Larry Wall


4.当我们从数组获得元素值的时候，需要使用$，因为我们只要获取数组里的一个值；你请求一个标量，然后会获得一个标量。
   如果从数组里获取多个值，使用@，因为我们要获取数组里的几个值（列表），这叫“数组切片”。
   $x[1]和@x[1]都是取数组中的第二个元素，但是因为$和@的不同，一个是取一个数时用的，一个是取一组数时用的，虽然该题目只取一个数字。

ypxns

perl新人，哈哈！~！

第1道题

1. 
   
2. 
   
3. 
   
4. sub myfunc {
   
5. 
   
6.         return 1 if $x ;
   
7. 
   
8. }

复制代码

renxiao2003

唉。没看到。马上参加。对了C++的还没有平出来啊。

ypxns

第六道题：

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. 
   
5. print "Enter some number,a number per line and type CTL+d to end:\n";
   
6. 
   
7. chomp(@numbers = <STDIN>);
   
8. 
   
9. foreach  (@numbers) {
   
10.        $sum += $_ ;
    
11. }
    
12. 
    
13. print "The number are : \n",join ",",grep { $_ > $sum / ($#numbers + 1) } @numbers;
    
14. print "\n";

复制代码

不练练 就忘记啦~！！

ypxns

第7道题：

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $random_number = int( 1 + rand 100 );
   
7. 
   
8. print "Please guess a number between 1 and 100: ";
   
9. while (<STDIN>) {
   
10.         last if /quit|exit/i;
    
11.         print "Too high\n" if $_ > $random_number ;
    
12.         print "Too low\n" if $_ < $random_number ;
    
13.         if ($_ == $random_number) {
    
14.                 print "Your guess it.\n";
    
15.                 last;
    
16.         }
    
17. }

复制代码