perl语言入门第四版第5章习题

[8]修改上一个程序，允许用户选择宽度，如，用户输入 30，hello,good-bye(在不同的行中)，则每一行的宽度为 30。（提示：参阅第二章相应部分）。提示，如果选择的宽度太长，可以增加比较行的长度。

答案：#!/usr/bin/perl

use?strict;

????my?@array=<STDIN>$longshiftarrayprint"1234567890"x10"n"foreach()
{
????????printf"%*s",long+1_}

解释下这里：“$long+1”试试下面这个：

#!/usr/bin/perl
use strict;
?my @array = qw30 hello;
? ? my $long = shift @array;
? ? print "1234567890"x10;
? ? print "n";
? ? ? ??my $lng = shift @array;
? ? ? ? printf "%*s",$long+1,$lng;
? ? 就会发现这个时候格式化长度就是31了，所以我才测试键盘输入数组按回车的原因导致控制输出的字符多了一个看不见的，不知道对不对。

可以参考http://baike.baidu.com/view/410546.htm