< 公开讨论

perl习题先打印一个标尺然后以20字符宽向右对齐格式化输出

回复收藏

打印

写一个程序，要求用户分行键入各个字符串，然后以20个字符宽、向右对齐的方式输出。为了确定输出结果在适当的位置，需要先输出有数字组成的标尺。例如，你键入的字符串分别为 abc, abcd, 12ab9d 那么应该输出的内容为：
12345678901234567890123456789012345678901234567890
                           abc
                        abcd
                     12ab9d

程序为：

#! /usr/bin/perl
chomp (@a=);
$n=1234567890;
$m=$n x 5;
print "$m\n";
for (@a) {
printf "%20s\n",$_;
}

2012-11-12 15:41 举报评分

全部回复( 1 )

阿铭管理员

改进楼上的题目，需要用户输入数字n，来决定以n字符宽向右对齐格式化输出。

#! /usr/bin/perl
print "Input a number:\n";
chomp ($w=<STDIN>);
print "Input some strings, and use Ctrl -D to finished.\n";
chomp (@a=<STDIN>);
$n=1234567890;
$m=$n x 5;
print "$m\n";
$v=$w . "s";
for (@a) {
printf "%$v\n",$_;
}

回复帖子，请先登录或注册

帖子状态

最新活动: 2012-11-12 16:13
浏览: 5035
关注: 0 人

编辑回复

perl习题先打印一个标尺然后以20字符宽向右对齐格式化输出

与内容相关的链接

全部回复( 1 )

发起人