sort排序失败的原因？

obsd178

1. 
   
2. my (@names);
   
3. chomp(@names=<STDIN>);
   
4. #@names=qw/fred barney wilma betty/;
   
5. say sort @names;
   
6. #say sort <STDIN>;
   
7. 
   
8. 输出结果：
   
9. # perl ex3-3.pl
   
10. fred barney wilma betty
    
11. fred barney wilma betty     ->排序失败
    

复制代码

1. my (@names);
   
2. #chomp(@names=<STDIN>);
   
3. @names=qw/fred barney wilma betty/;
   
4. say sort @names;
   
5. #say sort <STDIN>;
   
6. 
   
7. 输出结果：
   
8. > perl ex3-3.pl
   
9. barneybettyfredwilma        ->排序成功
   

复制代码

xfoucs

fred
barney
wilma
betty
逐行输入就能正确排序了

ulovko

Tips: <STDIN> is a line-input operator

sjdy521

数组里只有一个元素，谈不上排序失败。

obsd178

@xfoucs 明白了 谢谢大家

obsd178

回复 4# sjdy521

1. my(@names);
   
2. chomp(@names=<STDIN>);
   
3. say scalar @names;  -> 打印数组元素个数
   
4. say "===";
   
5. say sort @names;
   
6. 
   
7. 
   
8. # perl ex3-3.pl
   
9. Enter some strings one per line, then press Ctrl-D:
   
10. ba
    
11. ab
    
12. da
    
13. 3D   ->这个D是怎么回事？如何不显示这个D？ 谢谢！
    
14. ===
    
15. abbada
    
16. 
    
17. 
    
18. # perl ex3-3.pl
    
19. Enter some strings one per line, then press Ctrl-D:
    
20. ba ab da
    
21. 1D   ->这个D是怎么回事？如何不显示这个D？ 谢谢！
    
22. ===
    
23. ba ab da
    
24. 
    

复制代码

@xfoucs

方兆国儿

obsd178 发表于 2012-09-15 11:19
回复 4# sjdy521 @xfoucs

同求解答？ 想办法把这个D去掉吧!

obsd178

回复 7# 方兆国儿


    打搅了！请问怎么才能去掉？这是按下Ctrl-D 遗留下的 D

方兆国儿

不要问我了你看不出来我是新手哇