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

x9x9

第7題：

1. my $secr=int(1+rand 100);
   
2. print "Please enter a number between 1 to 100:\n";
   
3. 
   
4. while (<STDIN>){
   
5. exit if /^\s*$/ or /^(exit|quit)$/ or $secr==$_;
   
6. if ($secr<$_) {
   
7. print "too high!\n";
   
8. next;
   
9. } elsif ($secr>$_){
   
10. print "too low!\n";
    
11. next;
    
12. }
    
13. }

復(fù)制代碼

x9x9

第6題：

1. print "please enter some numbers:\n";
   
2. chomp($_=<STDIN>);
   
3. my @arr=split;
   
4. my $aver;
   
5. my $sum=0;
   
6. map {$sum+=$_;$aver=$sum/@arr;} @arr;
   
7. my @bignum=grep {$_ if $_>$aver;} @arr;
   
8. print join(" ",@bignum),"\n";

復(fù)制代碼

x9x9

第5題：

1. opendir my $DIR,"." or die "can't open directary:$!";
   
2. my @arr=readdir $DIR;
   
3. @arr=sort {-M $a<=>-M $b} @arr;
   
4. print join("\n",@arr);

復(fù)制代碼

x9x9

第3題：

1. my $str='1,2,3,5,6,7,8';
   
2. my @arr=split /,/,$str;
   
3. my $temp=0;
   
4. my $flag=1;
   
5. my %hash;
   
6. map {if ($_-$temp==1) {push @{$hash{"$flag"}},$_;} else {$flag++;push @{$hash{"$flag"}},$_;} $temp=$_;}  @arr;
   
7. foreach my $k (keys %hash){
   
8. $_.=$hash{$k}->[0].'-'.$hash{$k}->[-1].',';
   
9. }
   
10. chop;
    
11. print;
    

復(fù)制代碼

constmy

wind_ch

1. ### 1題
   
2. sub myfunc{
   
3.     $x = ...;
   
4.     return $x ? 1 : undef;
   
5. }
   
6. 
   
7. ### 4題
   
8. 標(biāo)準(zhǔn)用法和不標(biāo)準(zhǔn)用法的區(qū)別吧
   
9. 
   
10. ### 5題
    
11. print `ls -t1`;
    
12. 
    
13. ### 6題
    
14. my @nums = qw(1 3 5 7 -10 0 18);
    
15. my @result = grep $_ > eval(join '+', @nums) / ($#nums + 1), @nums;
    
16. #print Dumper(\@result);
    
17. 
    
18. ### 7題
    
19. my $secretNum = int(1 + rand 100);
    
20. print "I have a secret number, guess what:\n";
    
21. while(<STDIN>){
    
22.     exit if(m/^(quit|exit|\s)/i);
    
23.     chomp;
    
24.     if($_ == $secretNum){
    
25.         print "you get it\n";
    
26.         exit;
    
27.     }
    
28.     print $_ > $secretNum ? "too high\n" : "too low\n";
    
29. }

復(fù)制代碼

hitsubunnu

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

Usage: ./s.pl { start | stop | reload | restart | help | version | check }

server： s.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Daemon::Generic;
   
5. 
   
6. newdaemon(
   
7.     progname => 'echoserver',
   
8.     pidfile => '/tmp/echoserver.pid',
   
9.     );
   
10. 
    
11. sub gd_run {
    
12. use AnyEvent::Socket;
    
13. use AnyEvent::Handle;
    
14.         my $cv = AE::cv;
    
15. 
    
16.         tcp_server undef, 1234, sub {
    
17.                 my $hdl;
    
18.                 $hdl = AnyEvent::Handle->new(
    
19.                         fh => shift,
    
20.                         on_read => sub {
    
21.                                 $hdl->push_write("sever:");
    
22.                                 $hdl->push_write(delete $hdl->{rbuf});
    
23.                         },
    
24.                         on_eof => sub {},
    
25.                 );
    
26.         };
    
27.         $cv->recv;
    
28. }
    
29. 
    
30. sub gd_preconfig{}
    

復(fù)制代碼

client測(cè)試：c.pl

1. 
   
2. use strict;
   
3. use warnings;
   
4. use IO::Socket;
   
5. 
   
6. my $sock = new IO::Socket::INET (PeerAddr => '127.0.0.1',
   
7.                                  PeerPort => 1234,
   
8.                                  Proto    => 'tcp');
   
9. die "disconnet....$!\n" unless $sock;
   
10. 
    
11. print $sock "hello \n";
    
12. 
    
13. my $data = <$sock>;
    
14. print $data;
    
15. 
    
16. exit;

復(fù)制代碼

hitsubunnu

第八題 做成方法2  ## POE

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Daemon::Generic;
   
5. 
   
6. newdaemon(
   
7.     progname => 'echoserver',
   
8.     pidfile => '/tmp/echoserver.pid',
   
9.     );
   
10. 
    
11. sub gd_run {
    
12. 
    
13. use POE qw(Component::Server::TCP);
    
14. 
    
15. POE::Component::Server::TCP->new(
    
16.   Alias       => "echo_server",
    
17.   Port        => 1234,
    
18.   ClientInput => sub {
    
19.     my ($session, $heap, $input) = @_[SESSION, HEAP, ARG0];
    
20.     $heap->{client}->put("server:".$input);
    
21.   }
    
22. );
    
23. 
    
24. $poe_kernel->run();
    
25. 
    
26. }
    
27. 
    
28. sub gd_preconfig{}
    

復(fù)制代碼

surpass_li

1. 請(qǐng)正確的精簡(jiǎn)如下代碼。

sub myfunc {
    # $x = ...;

    if ( $x ) {
        return 1;
    } else {
        return;
    }
}
答：
sub myfunc {
        return $x and 1;
}
　


6.傳入一串?dāng)?shù)字并返回所有大于平均值的數(shù)字。
sub greThanAver
{
    my ($average,$sum)=(0,0);
    my @gre=();
    foreach(@_)
    {
        $sum+=$_;
    }
    $average =$sum/@_;
   
    foreach(@_)
    {
        if($_>$average)
        {
            push @gre,$_;
        }
    }
   
    return @gre;
}
7.讓用戶不斷猜測(cè)范圍從1到100的秘密數(shù)字，直到猜中為止。程序應(yīng)該以魔術(shù)公式lnt（1+rand 100）來(lái)隨機(jī)產(chǎn)生秘密數(shù)字。
當(dāng)用戶猜錯(cuò)時(shí)，程序應(yīng)相應(yīng)“too high”或者“too low”。如果用戶quit或者exit或者鍵入一個(gè)空白行程序就中止。當(dāng)然如果用戶猜到了，程序也應(yīng)該中止。

#!/usr/bin/perl
use Getopt::Std;
@orig_num;
@guess_num;

sub show_usage() {
        print "Usage: $0 ";
        print "         -p play game ";
        print "         -r Show rules of the game ";
        exit 0;
}

sub show_rules() {
        print "Welcome to This GUESS NUMBER GAME~! ";
        print "====猜測(cè)范圍從1到100的秘密數(shù)字====! ";
        print "=輸入quit或exit或鍵入一個(gè)空白行中止=! ";
}

sub generate_rand() {
        my $seed=time();
        srand($seed);
        my $rand = int(1+rand(100));
        $orig_num = $rand;
}

sub get_guess_number() {
        my $num_tmp;
        print "輸入您猜的數(shù)字: ";
        read(STDIN,$num_tmp);
        chomp($num_tmp);
        return $num_tmp;
        print " ";
}

sub check_res() {        
        if($orig_num > $guess_num) {
                return 1;
        }
        if($orig_num < $guess_num) {
                return -1;
        }
        return 0;

}

sub play_game() {
        generate_rand();
        my $i = 0;
        my $num_guess_tmp;
        while(1) {
                $guess_num = get_guess_number();
                if("$guess_num" eq "quit") {
                        exit 0;
                }
                if("$guess_num" eq "exit") {
                        exit 0;
                }
                if("$guess_num" eq " ") {
                        exit 0;
                }
                $result=check_res();
                if("$result" eq "0") {
                        print "中了! ^_^ ";
                        exit 0;
                }
                $result=check_res();
                if("$result" eq "0") {
                        print "中了! ^_^ ";
                        exit 0;
                }
                if("$result" eq "-1") {
                        print "too high";
                }
                if("$result" eq "1") {
                        print "too low";
                }               
        }
}

sub get_opts() {
        getopts(''hrp'');
        if(defined($opt_p)) {
                play_game();
        }
        elsif(not defined($opt_r)) {
                show_usage();
        }
        if(defined($opt_h)) {
                show_usage();
        }

}

get_opts();

wind_ch

這個(gè)有沒(méi)有人想出來(lái)只用正則表達(dá)式就可以完成的？

1. ### 3題
   
2. my $string = '1,2,3,5,6,7,8,10,11,12,13,14';
   
3. my ($start, $end) = undef;
   
4. my $result = '';
   
5. while($string =~ m/(\d+)/g){
   
6.     ($start = $end = $1) && next unless $start;
   
7.     if($1 - $end == 1){
   
8.         $end = $1;
   
9.         next;
   
10.     }else{
    
11.         $result .= (($start == $end) ? "$start," : "$start-$end,");
    
12.         $start = $end = $1;
    
13.     }
    
14. }
    
15. $result .= "$start-$end";
    
16. print "$result\n";

復(fù)制代碼