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

strike2000mr

3.把1,2,3,5,6,7,8 當(dāng)成是字符串也行吧，有正則表達(dá)式不是很快嘛
#!/usr/bin/perl
my $string=q/1,2,3,5,6,7,8/;
string=~s/,2,|,6,7,/-/g;
print $string;
,(\d+,)+
filename:test

1. #!/usr/bin/perl
   
2. my $string=join ",",@ARGV;
   
3. foreach $_(@ARGV){
   
4.              my $var=$_+1;
   
5.              $string=~s/($_),($var)/$_ $var/;
   
6. }
   
7. $string=~s/ (\d+ )+/-/g;
   
8. print $string;
   

復(fù)制代碼

#perl test 1 2 3 5 6 7 8

Monox

回復(fù) 21# strike2000mr

那你還不如：

1. 
   
2. my $string = "1,2,3,5,6,7,8";
   
3. $string = "1-3,5-８";
   
4. print $string;
   

復(fù)制代碼

純個(gè)人觀點(diǎn)，不同意的也沒關(guān)系，哈哈，我覺得寫程序關(guān)鍵是要培養(yǎng)一種思維方式和習(xí)慣。要知道為什么要寫程序，這樣的程序方不方便擴(kuò)展，普適性，等等。

renxiao2003

都是高手啊。看來(lái)“破”語(yǔ)言我鎮(zhèn)的不太會(huì)啊。周末在家查查資料正正。

wb112200

你們都把題公布出來(lái)了 要求不是要發(fā)郵件的么 破壞比賽規(guī)則嘛 呵呵

zhlong8

#1
sub myfunc { $x ? 1 : return}

#2
# 經(jīng)測(cè)試 $x=() 結(jié)果是 undef
# 列表位于標(biāo)量上下文結(jié)果是列表中元素?cái)?shù)目
# () 是用來(lái)創(chuàng)建空列表的
# 此處結(jié)果為 undef 是編譯器的選擇，因?yàn)檫@里可以有多種解釋

#4
# $x[1] 為取數(shù)組 @x 的第 1 個(gè)元素(從0開始)
# @x[1] 為 slice 返回的是個(gè)列表

#3

1. #!/usr/bin/perl -w
   
2. 
   
3. use 5.012;
   
4. 
   
5. my $s = $ARGV[0];
   
6. $s =~ s/\s//g;
   
7. 
   
8. while ($s =~ s/(?<=\d)  # a-b,c '-'只能出現(xiàn)在數(shù)字后面
   
9.     -(\d+),             # 捕獲 b
   
10.     ((??{$1+1}))        # 判斷 c 是否等于 b+1
    
11.     (?=,|$)             # c 后面只能是字符串結(jié)束或 ','
    
12.     /-$2/x or
    
13.     $s =~ s/(?|^(\d++), # a,b 結(jié)構(gòu)只能出現(xiàn)在字符串首部或者 a 在 ',' 后
    
14.     ((??{$1+1}))        # 判斷 b 是否等于 a + 1
    
15.     |(?<=,)             # a 在 , 后的情況
    
16.     (\d++),((??{$1+1})))
    
17.     (?=,|$)             # b 后面只能是字符串結(jié)束或 , 防止 b 捕獲位數(shù)不全
    
18.     /$1-$2/x
    
19. ) {
    
20.     say $s;
    
21. }
    
22. say "result: $s";

復(fù)制代碼

#5

1. #!/usr/bin/perl -w
   
2. 
   
3. use 5.012;
   
4. use Cwd;
   
5. use Data::Dumper;
   
6. 
   
7. my @mtime;
   
8. for (glob cwd . '/*') {
   
9.     push @mtime, [$_, (stat)[9]];
   
10. }
    
11. 
    
12. @mtime = sort {$a->[1] <=> $b->[1]} @mtime;
    
13. 
    
14. print Dumper \@mtime;

復(fù)制代碼

#7

1. #!/usr/bin/perl -w
   
2. 
   
3. use 5.012;
   
4. 
   
5. my $secret = int (1+rand 100);
   
6. 
   
7. print "guess a integer from 1 to 100\n> ";
   
8. 
   
9. while (<>) {
   
10.     last if /^\s*(?:quit|exit)?\s*$/;
    
11.     unless (/^\s*\d+\s*$/) {
    
12.         say 'input a integer please!';
    
13.         next;
    
14.     }
    
15.     given ($_ <=> $secret) {
    
16.         when (-1) { say 'too low'}
    
17.         when (0)  { say "you got it, it's $secret"; last}
    
18.         when (1)  { say 'too high'}
    
19.     }
    
20. } continue {
    
21.     print "> ";
    
22. }

復(fù)制代碼

#6

1. #!/usr/bin/perl -w
   
2. 
   
3. use 5.012;
   
4. 
   
5. sub func6 {
   
6.     my $sum = 0;
   
7.     $sum += $_ for @_;
   
8.     my $mean = $sum/@_;
   
9.     grep {$_ > $mean} @_;
   
10. }

復(fù)制代碼

#8另發(fā)

icecobra

關(guān)注。。。。

yybmsrs

慢慢做。。。
1.

1. sub myfunc {
   
2.         # $x = ...;
   
3.         1 if $x;
   
4. }

復(fù)制代碼

2.$x=()結(jié)果為undef，也就是未定義。列表在標(biāo)量上下文中相當(dāng)于逗號(hào)操作符，表示列表中最后一個(gè)元素的值。是，()相當(dāng)于,(undef,undef......)。

3.

1. my $foo = '1,2,3,5,6,7,8';
   
2. my @foo = split /,/,$foo;
   
3. my ($start,$i,$end) = ($foo[0])x3;
   
4. 
   
5. for(1..$#foo)
   
6. {
   
7.         $i++;
   
8.         if($foo[$_] == $i)
   
9.         {
   
10.                 $end = $foo[$_];
    
11.                 if($_ == $#foo)
    
12.                 {
    
13.                         print "$start-$end";
    
14.                 }
    
15.         }
    
16.         else
    
17.         {
    
18.                 if($start == $end)
    
19.                 {
    
20.                         print "$start,";
    
21.                 }
    
22.                 else
    
23.                 {
    
24.                         print "$start-$end,";
    
25.                 }
    
26.                 $i = $start = $end = $foo[$_];
    
27.                 if($_ == $#foo)
    
28.                 {
    
29.                         print "$end";
    
30.                 }
    
31.         }
    
32. }

復(fù)制代碼

4.@x[1]是$x[1]老的寫法，現(xiàn)在已經(jīng)不用。現(xiàn)在@x[1]還表示一個(gè)array slice。

renxiao2003

回復(fù) 24# wb112200


    是啊。大家都直接把答案貼在帖子里（就像PHP大賽）。這樣怎么能不雷同�。ㄒ粋�(gè)題的答案就那么幾種）。還是C/C++比較規(guī)范。把答案發(fā)EMAIL比較好。

珞水的大叔

占個(gè)坑先：
1. 答：

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

復(fù)制代碼

2. 答：是未定義；其值為列表中元素個(gè)數(shù)，被賦值時(shí)會(huì)只給第0個(gè)元素賦值并拋棄其他元素；
    不是，當(dāng)一個(gè)列表剛被定義時(shí)就是個(gè)空列表，在列表環(huán)境中()可以用來(lái)給已含有元素的列表進(jìn)行初始化

3. 答：這個(gè)題目我一個(gè)正則搞定，嘿嘿

1. my $lala = "1,2,3,5,6,7,8";
   
2. while($lala =~ s/(\d+)[-,]((?<=-)\d+|(?<=,)(??{$1+1})),((??{$2+1}))/$1-$3/){};
   
3. print $lala,"\n";

復(fù)制代碼

4. 答：這兩個(gè)的值是一樣的，但$x[1]是索引，@x[1]是切片，不過(guò)我不清楚具體實(shí)行原理有什么不同，但從以下例子可以知道切片的用途，比如：@y = @x[2,0] 表示 @y = ($x[2],$x[0])

5. 答：如果只要求當(dāng)前目錄下的文件而非所有文件的話，我覺得xfoucs在9樓寫的

1. my @sorted=sort {(-M $a)<=>(-M $b)} (<*>);

復(fù)制代碼

就很OK
當(dāng)然，如果是當(dāng)前目錄下的所有文件的話，就是多了一個(gè)遍歷所有文件，如下：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. sub ls{
   
6.     my @path = @_;
   
7.     my @result;
   
8.     while(scalar @path > 0){
   
9.         my $dir = pop @path;
   
10.         chomp $dir;
    
11.         if(-d $dir){
    
12.             opendir(my $dh, $dir);
    
13.             my @tmp = map{"$dir/$_"} grep{$_ !~ /^\.+$/}readdir $dh;
    
14.             push @path,@tmp;
    
15.             push @result,@tmp;
    
16.             closedir $dh;
    
17.         }
    
18.     }
    
19.     return @result;
    
20. }
    
21. 
    
22. my @sorted = sort {(-M $a)<=>(-M $b)} (ls("."));
    
23. print "$_\n" for @sorted;

復(fù)制代碼

6 答：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $sum;
   
6. $sum += $_ for @ARGV;
   
7. print "$_\n" for grep {$_ >= $sum/@ARGV} @ARGV;

復(fù)制代碼

7. 答：

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my $number = int(1+rand 100);
   
6. while(<>){
   
7.     chomp;
   
8.     if(/^quit|exit|\s+$/){
   
9.         exit;
   
10.     }
    
11.     elsif(/\D/ or /^$/){
    
12.         print "輸入不符合規(guī)范，請(qǐng)輸入數(shù)字\n";
    
13.     }
    
14.     elsif($_ > $number){
    
15.         print "too high\n";
    
16.     }
    
17.     elsif($_ < $number){
    
18.         print "too low\n";
    
19.     }
    
20.     elsif($_ == $number){
    
21.         print "right!\n";
    
22.         exit;
    
23.     }
    
24. }

復(fù)制代碼

lh_fengyuzhe

不會(huì)Perl的來(lái)看熱鬧