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

xfoucs

回復(fù) 9# xfoucs


    3. 1,2,3,5,6,7,8 如何合并成1-3,5-8？
這道題也不會。。。


------------------------------------------------
4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？
#########################################
$x[1]是數(shù)組第二個元素標(biāo)量7
@x[1]是數(shù)組切片后的只含一個元素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;
   

復(fù)制代碼

Monox

第8題 Socket 編程，從來沒去管過。嗯，還有很多其他事情要做，就不去翻資料了，這題棄權(quán)。

Jerll

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

aplah

全是高手啊，俺進(jìn)來走個場

rubylc_unix

系統(tǒng)環(huán)境:
              This is perl, v5.10.1 (*) built for i486-linux-gnu-thread-multi
              Copyright 1987-2009, Larry Wall


4.當(dāng)我們從數(shù)組獲得元素值的時候，需要使用$，因?yàn)槲覀冎灰�獲取數(shù)組里的一個值；你請求一個標(biāo)量，然后會獲得一個標(biāo)量。
   如果從數(shù)組里獲取多個值，使用@，因?yàn)槲覀円�獲取數(shù)組里的幾個值（列表），這叫“數(shù)組切片”。
   $x[1]和@x[1]都是取數(shù)組中的第二個元素，但是因?yàn)?和@的不同，一個是取一個數(shù)時用的，一個是取一組數(shù)時用的，雖然該題目只取一個數(shù)字。

ypxns

perl新人，哈哈！~！

第1道題

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

復(fù)制代碼

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

復(fù)制代碼

不練練 就忘記啦~！！

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

復(fù)制代碼