perl
#!/bin/perl
print "please input some lines,then press Ctrl+Z. n";
chomp(@s=);
print "1234567890"x 3 ."n";#做为输出结果的一个标尺
foreach $s(@s)
{
printf "%20sn",$s;#输出的格式为右对齐，所占空间为20个字符
}输出结果：
F:>perla.pl
please input some lines,then press Ctrl+Z.
how are you
fine,thank you
^Z
123456789012345678901234567890
how are you#u在第20个字符处
fine,thank you
#------------------------
没有chomp的程序：
perl
#!/bin/perl
print "please input some lines,then press Ctrl+Z. n";
@s=<STDIN>;
print "1234567890"x 3 ."n";
foreach $s(@s)
{
printf "%20sn",$s;
}
评论
0评论加载中…