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

strike2000mr

回復(fù) 22# Monox

感謝討教！深以為然!
filename:test1

1. #!/usr/ibn/perl
   
2. my $str=join ",",@ARGV;
   
3. $var=$_+1 and $string=~s/($_),($var)/$_ $var/  foreach (@ARGV);
   
4. $str=~s/ (\d+ )+/-/g;
   
5. print $str;
   

復(fù)制代碼

3-2
filename:test2

1. #!/usr/bin/perl
   
2. $var=$_-1 and $ARGV[$_]-$ARGV[$var]>1 and $str.="$ARGV[$var],$ARGV[$_]-" foreach(1..$#ARGV);
   
3. ($str="$ARGV[0]-$var$ARGV[-1]\n")=~s/(\d+)-\1/$1/g;
   
4. print $str;

復(fù)制代碼

#perl test 1 2 3  5 6 7 8

renxiao2003

大賽試題：

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

sub myfunc {
    # $x = ...;

    if ( $x ) {
        return 1;
    } else {
        return;
    }
}
答案：

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

復(fù)制代碼

2. $x=()結(jié)果是什么？列表位于標(biāo)量上下文是什么情況？()是不是用來創(chuàng)建空的list？請(qǐng)解釋原因。
答案：

1. $x=()結(jié)果是空列表，0個(gè)元素的列表；列表位于標(biāo)量上下文是反轉(zhuǎn)。()用來創(chuàng)建空的list。

復(fù)制代碼

3. 1,2,3,5,6,7,8 如何合并成1-3,5-8？
沒辦法，你們已經(jīng)正則了。我只能用這種老古董的辦法。要不我就是抄襲了啊。
答案：

1. #!/usr/bin/perl
   
2. $str="1,2,3,5,6,7,8";
   
3. @array=split(/,/,$str);
   
4. $len = @array;
   
5. $start=0;
   
6. $end=0;
   
7. $pos=0;
   
8. $startpos=0;
   
9. $outstr="";
   
10. if ($len>1){
    
11.         for($i=0;$i<$len-1;$i++){
    
12.             if ($array[$i] + 1 == $array[$i+1]){
    
13.                $pos=$i+1;
    
14.             }else{
    
15.                if ($outstr eq ""){
    
16.                    $outstr=$array[$startpos] . "-" . $array[$pos];
    
17.                }else{
    
18.                    $outstr=$outstr . "," . $array[$startpos] . "-" . $array[$pos];
    
19.                }
    
20.                $startpos=$i+1;
    
21.             }
    
22.             if ($pos==$len-1){   
    
23.                $outstr=$outstr ."," . $array[$startpos] . "-" . $array[$pos];
    
24.             }
    
25.         }
    
26. }
    
27. print $outstr . "\n";

復(fù)制代碼

4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？
答案：

$是一般變量，而@是數(shù)組變量。但因?yàn)锧x指向的是一個(gè)列表，所以在這里$x[1]與@x[1]輸出是一樣的。

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

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. print for ( system "ls -lt");
   

復(fù)制代碼

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

1. #!/usr/bin/perl
   
2. print "please input number,user ',' split:\n";
   
3. $x=<STDIN>;
   
4. @arr=split(/,/,$x);
   
5. sub average{
   
6.   $len=@arr;
   
7.   $sum=0;
   
8.   for($i=0;$i<$len;$i++){
   
9.     $sum = $sum + @arr[$i];
   
10.   }
    
11.   return $sum/$len;
    
12. }
    
13. sub getratheravg{
    
14.   $avg=average;
    
15.   @arr1;
    
16.   for($i=0;$i<@arr;$i++){
    
17.     if (@arr[$i]>$avg){
    
18.       push(@arr1,@arr[$i]);
    
19.     }
    
20.   }
    
21.   return @arr1;
    
22. }
    
23. #test
    
24. @arrx=getratheravg;
    
25. for($i=0;$i<@arrx;$i++){
    
26.    print @arrx[$i];print " ";
    
27. }
    

復(fù)制代碼

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

1. #!/usr/bin/perl
   
2. $key=int(1+rand 100);
   
3. print "please input a number (1~100):\n";
   
4. while($guess = <STDIN>)
   
5. {
   
6.     chomp($guess);
   
7.     if ($guess eq "quite" || $guess eq "exit" || $guess =~/\s*/)
   
8.     {
   
9.          exit(1);
   
10.     }
    
11.     elsif($guess > $key)
    
12.     {
    
13.          print "to high\n";
    
14.     }
    
15.     elsif($guess < $key)
    
16.     {
    
17.          print "to low\n";
    
18.     }
    
19.     elsif($guess == $key)
    
20.     {
    
21.          print "you guess right\n";
    
22.          exit;
    
23.     }
    
24. }
    

復(fù)制代碼

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

horsley

接到上面來：

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

4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么

$x[1] 結(jié)果是標(biāo)量為 7
@x[1]結(jié)果為列表 (7)

rubylc_unix

第一題：

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

復(fù)制代碼

rubylc_unix

第二題：

1.$x=()是未定義的。
2.列表位于標(biāo)量上下文中返回它的最后一個(gè)元素。
3.是用來創(chuàng)建空list的。

shangat

1:

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

復(fù)制代碼

2: $x = （） 的結(jié)果: $x = undef。
列表位于標(biāo)量上下文表示的是該列表中最后一個(gè)元素；當(dāng)為空列表時(shí)， 該標(biāo)量的值為：undef
新的或者是空的數(shù)組的初始值是空列表 （），在被賦值之前，數(shù)組變量的值是空列表，
清空數(shù)組時(shí)也可直接設(shè)置 @arr = (); 故 （）可以用來創(chuàng)建空的list的。
3:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use 5.010;
   
5. 
   
6. my %hash;
   
7. my ( @arr, $num, $chk, @resu );
   
8. chomp ( @arr = sort { $a <=> $b } grep { /\d+/ } split /\s+/, <STDIN> );
   
9. print "@arr=>";
   
10. $hash{$_} = 0 for ( $arr[0]...$arr[-1] );
    
11. for ( keys %hash ) {
    
12.         $hash{$_} = 1 if $_ ~~ @arr ;
    
13. }
    
14. for ( sort { $a <=> $b } keys %hash ) {
    
15.         if ( $hash{$_} ) {
    
16.                 $chk = 1;
    
17.                 $num = $_++;
    
18.                 while ( $hash{$_} ) {
    
19.                         $num =~ s/^(-?\d+).*/$1-$_/;
    
20.                         $hash{$_++} = 0;
    
21.                 }
    
22.         }
    
23.         else { $chk = 0 }
    
24.         push @resu, $num if ( $chk );
    
25. }
    
26. print join "、", @resu, "\n";

復(fù)制代碼

4: $x[1] 代表一個(gè)標(biāo)量，是數(shù)組 @x 的第二個(gè)元素，
@$x[1] 代表一個(gè)數(shù)組， 其中標(biāo)量 $x[1]是一個(gè)數(shù)組引用
5:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. print for ( split / /, system "ls -t" )；

復(fù)制代碼

6:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ( @arr, $num );
   
6. chomp ( @arr = sort grep { /\d+/ } split /\s+/, <STDIN> );
   
7. if ( @arr ) {
   
8.         $num += $_ for @arr;
   
9.         $num = join "、", grep { $_ > $num / @arr } @arr;
   
10.         print "the result is: $num\n";
    
11. }
    
12. else {
    
13.         print "no enter !\n";
    
14.         exit( 1 );
    
15. }

復(fù)制代碼

7:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ( $result, $guess );
   
6. $result = int ( 1 + rand ( 100 ) );
   
7. print "Please input an integer ( 1 to 100 ) to make a guess: ";
   
8. chomp ( $guess = <STDIN> );
   
9. while ( $guess ) {
   
10.                 if ( $guess eq "quit" || $guess eq "exit" || $guess =~/\s+/ ) {
    
11.                         exit(1);
    
12.                 }
    
13.                 elsif ( $guess =~/^\d+$/ ) {
    
14.                         print "to low \n" if ( $guess < $result );
    
15.                         print "to hight \n" if ( $guess > $result );
    
16.                         if ( $guess == $result ) {
    
17.                                 print "Good, the result is: $guess\n";
    
18.                                 exit(1);
    
19.                         }
    
20.                 }
    
21.                 else {
    
22.                         print "enter wrong !\n";
    
23.                 }
    
24.                 print "Again: ";
    
25.                 chomp ( $guess = <STDIN> );
    
26. }

復(fù)制代碼

yifangyou

1. ####################################################
   
2. #系統(tǒng)環(huán)境：windows xp sp3,centos 5
   
3. #編譯環(huán)境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
   
4. #執(zhí)行:     perl 1.pl
   
5. #題目：
   
6. #1. 請(qǐng)正確的精簡(jiǎn)如下代碼。
   
7. #
   
8. #sub myfunc {
   
9. #    # $x = ...;
   
10. #
    
11. #    if ( $x ) {
    
12. #        return 1;
    
13. #    } else {
    
14. #        return;
    
15. #    }
    
16. #}
    
17. #
    
18. ####################################################
    
19. 
    
20. sub myfunc_yifangyou {
    
21.   # $x = ...;
    
22.   my $x = shift;
    
23.   1 if $x;
    
24. }
    
25. #輸出沒有參數(shù)的
    
26. print "no param:[".myfunc_yifangyou()."]\n";
    
27. print "a  param:[".myfunc_yifangyou(454)."]\n";

復(fù)制代碼

yifangyou

1. ####################################################
   
2. #系統(tǒng)環(huán)境：windows xp sp3,centos 5
   
3. #編譯環(huán)境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
   
4. #執(zhí)行:     perl 2.pl
   
5. #題目：
   
6. #2. $x=()結(jié)果是什么？列表位于標(biāo)量上下文是什么情況？()是不是用來創(chuàng)建空的list？請(qǐng)解釋原因。
   
7. #
   
8. ####################################################
   
9. 
   
10. 
    
11. #1) $x=()結(jié)果是什么？
    
12. #答：$x為空，因?yàn)?x=(2,3,5)這種情況，總是返回最后一個(gè)元素，而()為空列表，因此返回null
    
13. $x=();
    
14. print "1. x=[".$x."]\n";
    
15. 
    
16. 
    
17. #2) 列表位于標(biāo)量上下文是什么情況？
    
18. #答：@aList = ("one", "two", "three"); $x = @aList;   當(dāng)把一個(gè)列表賦給一個(gè)數(shù)組變量時(shí)，這個(gè)數(shù)組變量在堆棧上放置了數(shù)組的長(zhǎng)度，
    
19. #因此在列表位于標(biāo)量上下文的情況下，$x只會(huì)取到數(shù)組的長(zhǎng)度。
    
20. @aList = ("one", "two", "three");
    
21. $x = @aList;
    
22. print "2. x=[".$x."]\n";
    
23. 
    
24. #3) ()是不是用來創(chuàng)建空的list？
    
25. #答：是，但是必須是在列表環(huán)境里，例如 @aList=(); 那么@aList就是一個(gè)空列表，若是在標(biāo)量環(huán)境里則是null相同,例如 $x=()
    
26. 
    
27. @aList=();
    
28. $x=();
    
29. print "3. aList=[".scalar(@aList)."],x=[".$x."]\n";

復(fù)制代碼

yifangyou

1. ####################################################
   
2. #系統(tǒng)環(huán)境：windows xp sp3,centos 5
   
3. #編譯環(huán)境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
   
4. #執(zhí)行:     perl 3.pl 1,2,3,5,6,7,8,24,25,26,2
   
5. #題目：
   
6. #3. 1,2,3,5,6,7,8 如何合并成1-3,5-8？
   
7. #
   
8. ####################################################
   
9. 
   
10. sub join_int {
    
11.   my @result=();
    
12.   my $inputlen=@_;
    
13.   #若是為空字符串的話，返回空
    
14.   return @result if($inputlen==0);
    
15.   #若是為1個(gè)數(shù)字的話返回
    
16.   return @_ if($inputlen==1);
    
17.   #記錄上一個(gè)整數(shù);
    
18.   my $last_n=shift(@_);
    
19.   #記錄開始的整數(shù)
    
20.   my $join_begin=$last_n;
    
21.   for my $n (@_) {
    
22.           #判斷是否連續(xù)
    
23.           if($n!=$last_n+1){
    
24.                   #當(dāng)不連續(xù)時(shí)保存到結(jié)果集里
    
25.                   if($join_begin==$last_n){
    
26.                           push(@result,$join_begin);
    
27.                   }else{
    
28.                           push(@result,"$join_begin-$last_n");
    
29.                   }
    
30.                   $last_n=$n;
    
31.                   $join_begin=$last_n;
    
32.           }else{
    
33.                   $last_n=$n;
    
34.           }
    
35.   }
    
36.   #防止最后一個(gè)被遺漏
    
37.   if($join_begin==$last_n){
    
38.           push(@result,$join_begin);
    
39.   }else{
    
40.           push(@result,"$join_begin-$last_n");
    
41.   }
    
42.   return @result;
    
43. }
    
44. #例子
    
45. #print "result:".join(",",join_int(1,2,3,5,6,7,8))."\n";
    
46. 
    
47. #判斷輸入合法性
    
48. if(!($ARGV[0]=~/(\d+,)*\d+/)){
    
49.         die("please add a number list param like 1,2,3,5,6,7,8\n");
    
50. }
    
51. #分割成數(shù)組
    
52. @input_list=split(/,/,$ARGV[0]);
    
53. print "input :".join(",",@input_list)."\n";
    
54. print "result:".join(",",join_int(@input_list))."\n";

復(fù)制代碼

yifangyou

1. ####################################################
   
2. #系統(tǒng)環(huán)境：windows xp sp3,centos 5
   
3. #編譯環(huán)境：perl, v5.6.1 built for MSWin32-x86-multi-thread,perl, v5.8.8 built for i386-linux-thread-multi
   
4. #執(zhí)行:     perl 4.pl
   
5. #題目：
   
6. #4.@x=(5,7,9); $x[1]與@x[1]的區(qū)別是什么？
   
7. #
   
8. ####################################################
   
9. #答:兩者的返回值都一樣，如下
   
10. print"same point:------------------------\n";
    
11. @x=(5,7,9);
    
12. print '$x[1]=',$x[1],"\n";# 7
    
13. print '@x[1]=',@x[1],"\n";# 7
    
14. 
    
15. print"\ndiffrerent \$x[1] point:------------------------\n";
    
16. #但是$x[1]是一個(gè)標(biāo)量變量，給一個(gè)標(biāo)量變量，賦值，在右手邊就會(huì)以標(biāo)量環(huán)境計(jì)算：
    
17. @x=(5,7,9);
    
18. $x[1]=8;                   #常數(shù)#這個(gè)得到的結(jié)果和@x[1]是一樣
    
19. print '$x[1]=',$x[1],"\n"; # $x[1]=8
    
20. 
    
21. @x=(5,7,9);
    
22. $x[1]=(10,11,12);          #列表 # 12 # 得到的是最后一個(gè)元素12,這個(gè)得到的結(jié)果和@x[1]是不一樣
    
23. print '$x[1]=',$x[1],"\n"; # $x[1]=12
    
24. 
    
25. @x=(5,7,9);
    
26. @a=('a','b','c');
    
27. $x[1]=@a;                  #數(shù)組# 得到的是@a的長(zhǎng)度,這個(gè)得到的結(jié)果和@x[1]是不一樣               
    
28. print '$x[1]=',$x[1],"\n"; # $x[1]=3
    
29. 
    
30. @x=(5,7,9);
    
31. $x[1]={10,11,12};          #散列# 得到的是@a的長(zhǎng)度,這個(gè)得到的結(jié)果和@x[1]是一樣               
    
32. print '$x[1]=',$x[1],"\n"; # $x[1]=散列的地址
    
33. 
    
34. print"\ndiffrerent \@x[1] point:------------------------\n";
    
35. #@x[1]是一個(gè)列表變量，在右手邊就會(huì)以列表環(huán)境進(jìn)行計(jì)算
    
36. @x=(5,7,9);
    
37. @x[1]=8;                   #常數(shù)# 8 #這個(gè)得到的結(jié)果和@x[1]是一樣
    
38. print '@x[1]=',@x[1],"\n"; # @x[1]=8
    
39. 
    
40. @x=(5,7,9);
    
41. @x[1]=(10,11,12);          #列表 # (10,11,12) # 得到的是第一個(gè)元素10,這個(gè)得到的結(jié)果和$x[1]是不一樣
    
42. print '@x[1]=',@x[1],"\n"; # @x[1]=10
    
43. 
    
44. @x=(5,7,9);
    
45. @a=('a','b','c');
    
46. @x[1]=@a;                  #數(shù)組# 3 # 得到的是@a的第一個(gè)元素,這個(gè)得到的結(jié)果和$x[1]是不一樣   
    
47. print '@x[1]=',@x[1],"\n"; # @x[1]='a'
    
48. 
    
49. @x=(5,7,9);
    
50. @x[1]={10,11,12};          #散列# 得到的是散列的地址,這個(gè)得到的結(jié)果和$x[1]是一樣               
    
51. print '@x[1]=',@x[1],"\n"; # @x[1]=散列的地址

復(fù)制代碼