还是跑来求帮助了...

rubyish

第一題:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. @ARGV = map { $_ // 'world' } @ARGV[ 0, 1 ];
   
4. my @greet = ( "Hello, $ARGV[0]!", "Goodbye, $ARGV[1]!" );
   
5. say $greet[ $ARGV[0] eq '-b' ];
   

复制代码

rubyish

第二题:
改错

1. my @sortarray;
   
2. my @lines = <>;
   
3. for ( 0 .. $#lines ) {
   
4.     my $l = length $lines[$_];
   
5.     $sortarray[$_] = [ $l, $l . "|" . $_ ];
   
6. }
   
7. @sortarray = map { $_->[1] } sort { $a->[0] <=> $b->[0] } @sortarray;
   
8. 
   
9. print "****************************************\n";
   
10. for (@sortarray) {
    
11.     print $lines[ substr( $_, index( $_, "|" ) + 1 ) ];
    
12. }

复制代码

改写:

1. 
   
2. my @lines = <>;
   
3. print "****************************************\n";
   
4. print map { $_->[1] } sort { $a->[0] <=> $b->[0] } map [ length, $_ ], @lines;
   

复制代码

babyma1109

第一题写的太霸气了 比我写的简单多了回复 11# rubyish


   

babyma1109

这题没看懂.....回复 12# rubyish


   

babyma1109

话说 改错这个 没怎么看懂.....回复 12# rubyish


   

rubyish

回复 13# babyma1109


    一个简洁优雅的代码 ...非常简短。

1. 
   
2. my @a = map { $_ // 'world' } @ARGV[ 0, 1 ];
   
3. say $a[0] ne '-b' ? "Hello, $a[0]!" :  "Goodbye, $a[1]!"
   

复制代码

唐归来

回复 16# rubyish


   请教一下  $_ // 'world' 是什么意思啊

rubyish

回复 17# 唐归来

1. $_ // 'world' 是什么意思啊

复制代码

1. defined $_ ? $_ : 'world'

复制代码

唐归来

懂了，谢谢回复 18# rubyish


   

ypqfyf

回复 12# rubyish


    这代码也太棒了，啧啧。