STDIN的格式化输出为什么总少一位?内有代码

godsad

use warnings; use strict; my @kk = 0..9; push @kk,0..9; printf "%20s\n",333; print @kk; print "\n"; my @xx = <STDIN>; foreach (@xx){           printf "%20s",$_;           }

xiaobing927

啥意思？打印出什么了？

godsad

printf "%20s",333;和printf "%20s",$_;(STDIN输入的333)的结果不一样,print @kk;是基准

这是个测试格式化输出的程序

[ 本帖最后由 godsad 于 2009-7-29 11:03 编辑 ]

MMMIX

原帖由 godsad 于 2009-7-29 10:58 发表
printf "%20s",333;和printf "%20s",$_;(STDIN输入的333)的结果不一样,print @kk;是基准

你期望什么？得到的又是什么？

BTW，不要指望别人去运行你的代码，并猜测你是如何和程序交互的。

xiaobing927

[root@localhost perl]# ./perl-printf-test
                           333
01234567890123456789
333
                          333
真是的呀，试过几个方法都没有对齐

[ 本帖最后由 xiaobing927 于 2009-7-29 11:35 编辑 ]

iceberg77

my @xx = <STDIN>;
foreach (@xx){
          chomp;
          printf "%20s\n",$_;
}

godsad

原帖由 iceberg77 于 2009-7-29 11:40 发表
my @xx = ;
foreach (@xx){
          chomp;
          printf "%20s\n",$_;
}

这样就可以了,不过chomp不是去换行符的吗?哦明白了,换行也算一个字符,谢谢ls

我的那个代码预期结果是:
                           333
01234567890123456789
333
^D
                           333
实际运行结果总少一位
                           333
01234567890123456789
333
^D
                          333
最后的333少右移一位

[ 本帖最后由 godsad 于 2009-7-29 12:41 编辑 ]

xiaobing927

第一次读到chomp 函数时，它看起来过于专门化。它对变量起作用，而此变量含有字符串。如果字符串结尾有换行符，chomp
可以去掉它。这基本上就是它能完成的所有功能，如下例：
$text = “a line of text\n”; #也可以由<STDIN>输入
chomp($text); #去掉换行符(\n)。

以上是小骆驼中的对这个函数的解释。我还是不明白了，比如我输入333然后再按下CTRL+D这中间发生的过程是什么？
我是刚学习时间不长，还望指点下。

MMMIX

原帖由 xiaobing927 于 2009-7-29 12:42 发表
我还是不明白了，比如我输入333然后再按下CTRL+D这中间发生的过程是什么？

这中间的过程是你输完 333 之后，还按了个回车，然后才是 Ctrl-D，因此 @xx 的第一个元素实际是 "333\n", 而不是 "333"

godsad

lss看3.8节,有详细描述的