perl入门（第四版） 第三章习题 求助

eaglegirl

[root@test perl]# cat ex3_2.pl
#!/usr/bin/perl -w
use warnings;
use strict;
print "PLEASE INPUT : ";
my @char=<STDIN>;
print "\n";
print sort(@char);
print "\n";
print chomp(@char);
print "\n";
[root@test perl]# perl ex3_2.pl
PLEASE INPUT : 5
4
3
2
1

1
2
3
4
5

5
[root@test perl]#

使用chomp函数预期输出为 54321 怎么变成一个单独的5了？

blackold

昨天还有人问过同一问题。
chomp的返值是被去除字符(在这里是\n)的个数。

兰花仙子

返回值问题。chomp(@char)的返回值不是一个数组。

eaglegirl

my @ch=sort(@char);
my $n=scalar @ch;
my $i=1;
while($i<=$n){
        print $ch[$i-1]."\t";
        $i++;
}
print "\n";  
改进后能实现同一行输出。感觉还能更简单些，请高手指教。

兰花仙子

print "$_\t" for @ch;

yn521yn

将print chomp(@char);改为
chomp(@char);
print @char;
就能得到你要的结果了

jiannma

第一次读到chomp 函数时，它看起来过于专门化。
它对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，
chomp 可以去掉它。这基本上就是它能完成的所有功能

这是书上说的哦 ～～～

flw

原帖由 jiannma 于 2009-10-16 22:22 发表
第一次读到chomp 函数时，它看起来过于专门化。
它对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，
chomp 可以去掉它。这基本上就是它能完成的所有功能

这是书上说的哦 ～～～

专门化是因为这个操作在文本处理中太常见了。

这叫做哈夫曼原则。最常见的操作应该专门化，简单化，不惜为此增加新的语法条目。

emperor

吓着哈夫曼了。。。。。