还是跑来求帮助了...

babyma1109

第一题吧:
Write a Perl program P1.pl to greet whatever is passed to it on the command line,
e.g.,
Hello, stranger!
There can be a problem with the above script: a parameter must be supplied, otherwise we'll get an error message.

comp315@turing> ./P1.pl
Use of uninitialized value $thing in concatenation (.)
or string at ./P1.pl line 4.
Hello, !
You should write the script in such a way that it will print a default value, let's say
\world", if no value is supplied on the command line.
comp315@turing> ./P1.pl
Hello, world!
Pay attention when providing zero as a parameter, as the greeting should be
comp315@turing> ./P1.pl 0
Hello, 0!
Modify the script to say \Goodbye" according to whether the -b switch was used on
the command line and the corresponding comment will be the output:
>P1.pl                             # Hello, world!
>P1.pl student                # Hello, student!
>P1.pl -b                        # Goodbye, world!
>P1.pl -b 'nice student'   # Goodbye, nice student!


第二题吧, 改错这个我没怎么看懂有谁能帮我看看咩
The following program is supposed to read text from standard input and to output
them sorted by length. The lines are read in an array called @lines. Based on
@lines, a new array @sortarray is created such that each element of this array is the
length of a line of text, concatenated with the vertical bar `|' character, concatenated
with the index of that line of text in the original array @lines. The program sorts
the new array, and then uses the results to display the original lines in sorted order.

#!/usr/bin/perl
use strict;
use warnings;

my @lines;
my @sortarray;
# read in the entire input
@lines = <STDIN>;

#construct the array with the length prepended
foreach (0 .. $#lines) {
  $sortarray[$_] = length($lines[$_]) . "|" . $_;
}

# sort using numeric comparison
@sortarray = sort { $a <=> $b } @sortarray;

# display results
print "****************************************\n";
foreach (@sortarray) {
  print $lines[substr($_, index($_, "|"))];
}

afukada

請問第一題可不可以使用module

babyma1109

#!/usr/bin/perl
use strict;
use warnings;

my $person ='world';
if( @ARGV)
{
$person = $ARGV[0];
}
print "Hello ".$person," ! \n";
这是我写的东西...
好像没有用到回复 2# afukada


   

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

话说 改错这个 没怎么看懂.....回复 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'

复制代码

babyma1109

不愧是大神级别的  比我这种屌丝写的好多了回复 20# ypqfyf


   

Perlvim

回答了题是不是可以推荐工作？

rubyish

NaN!!{:3_188:}{:3_188:}

babyma1109

第一题 我只写出了第一部分....
怎么加-b让他交换就不太明白了
回复 2# afukada


   

babyma1109

哈哈  想太多了  回答了就能写作业了
回复 3# Perlvim


   

babyma1109

这个  话说我也是  可是米有办法
回复 4# sinian126


   

babyma1109

老师还说...你要想拿extra point, 就要把甚么格式写的好看点啊
如果人家输入的是-c 你要告诉别人只能是-b才行甚么的  
很是头大啊回复 5# rubyish