perl循环打印时，如何每次 跟在前1轮循环的列后面打印

weichanghe2000

大家好，请教个perl打印问题。
假如我有2个数组 @t=('a', 'b', 'c', ...),  @d = (1, 2, 3, ..)
循环打印，
第1次循环在terminal上输出
a
1
第2次循环在terminal上输出，不想新增2行，而是在第1次循环的列后面输出，即形如：
a  b
1  2
同理，第3次循环，在terminal输出，紧接着第2轮的列后面输出，形如
a  b   c
1  2   3

不知道如何实现，能否请大神们帮忙看看？

sunzhiguolu

假设两个数组的长度一样, 可以试下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub print_array{
   
7.     my ($ra, $sEnd) = (@_);
   
8.     for (my $i = 0; $i <= $sEnd; $i++){
   
9.         print "$ra->[$i] ";
   
10.     }
    
11.     print "\n";
    
12. }
    
13. my @aChars = qw(a b c d e);
    
14. my @aNumbers = (1..5);
    
15. 
    
16. for (my $i = 0; $i < scalar (@aChars); $i++){
    
17.     if ($i == 0){
    
18.         print "$aChars[$i]\n$aNumbers[$i]\n";
    
19.     }else{
    
20.         print_array(\@aChars, $i);
    
21.         print_array(\@aNumbers, $i);
    
22.     }
    
23. }
    

复制代码

sunzhiguolu

这个稍微简洁一点, 代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. sub get_str_by_array{
   
7.     my ($ra, $sEnd, $sLines) = (@_);
   
8.     for (my $i = 0; $i <= $sEnd; $i++){
   
9.         $sLines .= "$ra->[$i] ";
   
10.     }
    
11.     $sLines .= "\n";
    
12. }
    
13. my @aChars = qw(a b c d e);
    
14. my @aNumbers = (1..5);
    
15. 
    
16. for (my $i = 0; $i < scalar (@aChars); $i++){
    
17.     $i == 0 ? print "$aChars[$i]\n$aNumbers[$i]\n" : print get_str_by_array(\@aChars, $i), get_str_by_array(\@aNumbers, $i);
    
18. }
    

复制代码

sunzhiguolu

再试下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @aChars = qw(a b c d e);
   
7. foreach (1..@aChars){
   
8.     for (my $i = 0; $i < $_; $i++){
   
9.         print "$aChars[$i] ";
   
10.     }
    
11.     print "\n", join (' ', 1..$_), "\n";
    
12. }
    

复制代码

Okelani

1. my @t = ( 'a', 'b', 'c' );
   
2. my @d = ( 1,   2,   3 );
   
3. 
   
4. say "@t";
   
5. say "@d";

复制代码

MMMIX

人楼主是想实现类似进度条的效果，不是单纯的打印。

http://stackoverflow.com/questio ... iline-progress-bars

sunzhiguolu

回复 5# Okelani
您这代码行数太少, 不能算数!!!

   

sunzhiguolu

回复 6# MMMIX

人楼主是想实现类似 进度条 的效果，不是单纯的打印。

大神您好, 您来个进度条的效果. (彩色的可以有吗?)
   

weichanghe2000

回复 4# sunzhiguolu

谢谢你，差不多接近我的需求了。



   

weichanghe2000

我真实的需求是想做到如下输出效果：
1. 3轮循环
2. 每一轮循环输出1列
3. 紧接着上一轮的列后面输出