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

dl0622

以下代碼在AIX5.3試跑通過：

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

sub myfunc {
    # $x = ...;

    if ( $x ) {
        return 1;
    } else {
        return;
    }
}
答：
sub myfunc {
$x==0?"":1;
}

2. $x=()結(jié)果是什么？列表位于標(biāo)量上下文是什么情況？()是不是用來創(chuàng)建空的list？請解釋原因。
答：$x=()結(jié)果是空；列表位于標(biāo)量上下文時返回最后一個元素；()是用來創(chuàng)建空的list。
原因：
在標(biāo)量環(huán)境里，列表中逗號操作符是一個兩目操作符，它會丟棄左邊的值并且返回右邊的值。逗號操作符的左邊實際上提供了一個空環(huán)境。
因為逗號操作符是左關(guān)聯(lián)的，如果你有一系列逗號分隔的數(shù)值，那你總是得到最后一個數(shù)值，
因為最后一個逗號會丟棄任何前面逗號生成的東西。

3. 1,2,3,5,6,7,8 如何合并成1-3,5-8？
答：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my @a=(1,2,3,5,6,7,8);
   
6. my @b;
   
7. 
   
8. for(0..$#a){
   
9.     if(($_==0)||($_==$#a)){
   
10.         push @b,$a[$_];
    
11.     }
    
12.     elsif($a[$_]+1 != $a[$_+1]){
    
13.         push @b,(join ",",($a[$_],$a[$_+1]));
    
14.     }
    
15. }
    
16. 
    
17. my $result=join "-",@b;
    
18. print $result."\n";

復(fù)制代碼

4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？
答：$x[1]與@x[1]基本無區(qū)別；$[$a]與@[$a]則有可能存在區(qū)別，例如當(dāng)$a=0..2 時。


5. 用最短和優(yōu)的perl代碼對當(dāng)前目錄下的文件和子目錄按修改時間進(jìn)行排序。
答：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. opendir(THISDIR, ".") or die $!;
   
6. my @allfiles = grep { $_ ne '.' and $_ ne '..' } readdir THISDIR;
   
7. my %h;
   
8. foreach(@allfiles){
   
9.     $h{(stat "./$_")[9]} = $_;
   
10. }
    
11. foreach(sort keys %h){
    
12.     print "$h{$_}\n";
    
13. }

復(fù)制代碼

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

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my @a=(1,2,3,5,6,7,8);
   
6. my $b;
   
7. 
   
8. for(0..$#a){
   
9.     $b+=$a[$_];
   
10. }
    
11. 
    
12. my $num=@a;
    
13. my $avg=$b/$num;
    
14. 
    
15. for(@a){
    
16.     if($_>$avg){
    
17.         print "$_\n";
    
18.     }
    
19. }

復(fù)制代碼

7.讓用戶不斷猜測范圍從1到100的秘密數(shù)字，直到猜中為止。程序應(yīng)該以魔術(shù)公式int（1+rand 100）來隨機(jī)產(chǎn)生秘密數(shù)字。
當(dāng)用戶猜錯時，程序應(yīng)相應(yīng)“too high”或者“too low”。如果用戶quit或者exit或者鍵入一個空白行程序就中止。
當(dāng)然如果用戶猜到了，程序也應(yīng)該中止。
答：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. 
   
5. my $rand_num=int(1+rand 100);
   
6. while(1){
   
7.         print"please enter a number which is between 1 and 100:\n";
   
8.         my $in=<STDIN>;
   
9.         if(($in=~/\bquit\b/)||($in=~/\bexit\b/)||($in=~/^\s+/)){
   
10.                 exit;
    
11.         }
    
12.         elsif($in>100||$in<0){
    
13.                 print"you enter a number which is not between 1 and 100,please check!\n";
    
14.                 next;
    
15.         }
    
16.         elsif($in > $rand_num){
    
17.                 print"too high\n";
    
18.                 next;
    
19.         }
    
20.         elsif($in < $rand_num){
    
21.                 print"too low\n";
    
22.                 next;
    
23.         }
    
24.         elsif($in == $rand_num){
    
25.                 print"bingo!\n";
    
26.                 exit;
    
27.         }
    
28.         else{
    
29.                 print"unknow error!\n";
    
30.                 next;
    
31.         }
    
32. }

復(fù)制代碼

8. 寫一個簡單的TCP Echo Server，在linux/unix環(huán)境運行，偵聽在特定端口，接受用戶的網(wǎng)絡(luò)輸入，并返回同樣的數(shù)據(jù)給對方，
能接受quit命令。
基本要求：
（1）無阻塞IO。
（2）daemon方式運行。
（3）能接受kill -HUP重啟信號。

Mr-Summer

好久沒寫perl了，好像不提倡寫for（；；）這種格式的
第一題：
        sub myfunc
        {
                $x?return 1:return;
        }
第二題：
        $x引用的列表首地址，清空該列表
第三題：
        my $i=0,$begin;
        @x=(1,2,3,5,6,7,;
        while($i<$#x+1)
        {
                for($begin=$x[$i];$x[$i]+1==$x[$i+1];$i++){}
                print $begin."-".$x[$i].",";
                $i++;
        }
第四題：
        $x[1]:列表的第二個元素；
        @x[1]:多重列表內(nèi)第二個列表元素的首地址（引用）；
第五題：
        system(ls -lt .);
第六題：
my $i=0,$sum=0,$agv=0;
if(!@ARGV)
{
        eval (print "error,please input numbers";
}
for(;$i<=$#ARGV+1;$i++)
{
        $sum+=$ARGV[$i];
}
$agv=$sum/($#ARGV+1);
for($i=0;$i<=$#ARGV+1;$i++)
{
        if($ARGV[$i]>$agv)
        {
                print $ARGV[$i].",";
        }
}

isaacblue

==>>>01 =====================================
sub myfun
{
  #x=...;
  $x?1:undef;
}

isaacblue

==>>>02 =====================================
1 $x=()結(jié)果是什么？
$x=();的結(jié)果和$x;一樣，都是undef;

2 列表位于標(biāo)量上下文是什么情況?
例如=>$x=(1,2,3);
$x的值為3，()返回列表最后一個值。

3 ()是不是用來創(chuàng)建空的list？
不是的，這樣的賦值相當(dāng)于未定義。況且還可以定義空散列哩。

isaacblue

==>>>04 =====================================
#!/bin/perl -w

srand();
$theNum=int(1 + rand(100));
while(1)
{
        print STDOUT "Please input your number : ";
  $myGuess = <STDIN>;
  chomp($myGuess);
  
  if ($myGuess =~/\D{1,}/)
  {
          last if("exit" == "$myGuess" or "quit" == "$myGuess");
          print STDOUT "Not number...\n";
          redo;
  }
  else
  {
          if ($myGuess gt $theNum)
    {
      print STDOUT "too high...\n";
      next;
    }
    elsif ($myGuess lt $theNum)
    {
      print STDOUT "too low...\n";
      next;
    }
    else
    {
      print STDOUT "correct...\n";
      last;
    }
  }
}

vikyleaf

:wink::wink:加油�。�！

greenlasting

學(xué)C的飄過

lxk613

獎品比c/c++的豐厚呢，大家趕緊啊，多勞多得，哈哈

首天

看代碼學(xué)習(xí)中

fkiori

今天才看到帖子，晚了點。純屬參與，不求得獎

1.
sub myfunc{
....
1 if $x
}


2. 結(jié)果是空
有一點點不同時。perl里面分為匿名數(shù)組和賦值數(shù)組（不知道怎么叫）
$a = (1,2,3,6) 這種叫匿名數(shù)組，標(biāo)量環(huán)境相當(dāng)于逗號分隔， 取最后一個值，即 $a = 6
@a = (1,2,3,6) 這種叫賦值數(shù)組， $b = @a 這種在標(biāo)量環(huán)境下，取數(shù)組長度。 即 4

3. 不懂題意。是什么規(guī)則這么合并？
  前三個數(shù)合并，后4個數(shù)合并？ 假如有第8，9，10個數(shù)字，那怎么辦？
  還是連續(xù)的數(shù)字合并？
  在題意不明確情況下，有一位朋友的算法最簡單。就是直接賦值。
  $string = "1-3,5-8";

4. 使用過程中沒什么區(qū)別， @a[1] 是Perl5之前的用法。后來改為 $a[1] 這樣，但是現(xiàn)在也兼容這么用。
    嚴(yán)格來說， @a[1] 是一個數(shù)組的片段(還是數(shù)組)，但是只有一個元素。 $a[1] 是一個標(biāo)量。

5.
sort {-M $a <=> -M $b}  <*> ;

6.
myfunc(1,2,3,4,5,6,1,8,3,6,1);
sub myfunc{
  my @numbers = @_;
  my $max;
  foreach (@numbers){$max+=$_;}
  foreach (@numbers){push(@result,$_) if ($_>$max/@numbers);}
  return @result;
}

7.

$number = int(1+rand(100));
while (my $input = <STDIN>){
chomp $input;
if ($input =~ /^(exit|quit|)$/){print "Exit\n";exit;}
elsif ($input > $number){print "too high\n";}
elsif ($input < $number){print "too low\n";}
else{print "Got it\n";exit;}

}


8.
這個是我以前的代碼，少做修改
#!/usr/bin/perl

use strict;
use IO::Socket;
$|=1; # 關(guān)閉輸出緩沖

my %cfg = (
        server_port => 8080,
        client_timeout => 10,
);
my $program_exit = 0;
main();
exit;
##########################
#主程序
##########################
sub main
{
        $SIG{CHLD} = $SIG{INT} = $SIG{TERM} = sub{$program_exit++;};

        #創(chuàng)建Socket監(jiān)聽連接
        my $listen_socket = IO::Socket::INET->new(
                LocalPort       =>"$cfg{server_port}",
                Listen          =>20,
                Proto           =>'TCP',
                Reuse           =>1,
                Timeout         =>$cfg{client_timeout},
        ) or die $!;

        print "程序啟動，正在監(jiān)聽 $cfg{server_port} 端口 \n";

        #監(jiān)聽
        while (!$program_exit)
        {
                my $connection = $listen_socket->accept;
                next if (!$connection);
                if (fork() == 0){process($connection);}
                close($connection);
        }
        exit 0;

}
sub process
{
        my $connection = shift;
        $connection->autoflush(1);
        my $url;
        while (!$program_exit)
        {
                my $data = $connection->getline();
                chomp $data;
                if ($data =~ /^\s*quit\s*$/){last;}
                print $connection $data."\n";
        }
        $connection->shutdown(2);
}