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

weichanghe2000

回复 5# Okelani

呵呵，这个不是我想要的哈。
   

питон

1. #!/usr/bin/perl
   
2. use Acme::Pythonic;
   
3. 
   
4. sub zprint:
   
5.     my ( $LISTA, $LISTB, $SEC ) = @_;
   
6.     my ( $lena, $lenb ) = ( 0, 0 )
   
7.     my ( $backa, $backb, $forea, $foreb ) = (0) x 4
   
8.     my ( $FIRST, $SECOND ) = map "\033[1" . $_, qw[A B]
   
9.     my ( $BACK, $FORE, $NEWLINE, $NONE ) = ( "\b", ' ', "\n", '' )
   
10.     $SEC ||= 0.123
    
11.     $| = 1
    
12.     my $END = $#$LISTA > $#$LISTB ? $#$LISTA : $#$LISTB
    
13.     my $waiting = sub:
    
14.         select undef, undef, undef, $SEC
    
15. 
    
16.     print $NEWLINE
    
17. 
    
18.     for 0 .. $END:
    
19.         my $a = $LISTA->[$_] // $NONE
    
20.         my $b = $LISTB->[$_] // $NONE
    
21.         
    
22.         $lena += length $a
    
23.         $forea = $lena < $lenb ? $lenb - $lena : 0
    
24.         $backb = $lena < $lenb ? 0 : $lena - $lenb
    
25. 
    
26.         print $FIRST, $BACK x $backa, $a, $FORE x $forea
    
27.         
    
28.         $lenb += length $b
    
29.         $foreb = $lenb < $lena ? $lena - $lenb + 1 : 1
    
30.         $backa = $lenb < $lena ? 0 : $lenb - $lena
    
31.             
    
32.         print $SECOND, $BACK x $backb , $b, $FORE x $foreb
    
33. 
    
34.         &$waiting
    
35.    
    
36.     print $NEWLINE
    
37.    
    
38. 
    
39. my @a = 'A' .. 'Z'
    
40. my @b = 0 .. 32
    
41. 
    
42. zprint \@a, \@b, 0.02
    
43. zprint \@a, \@b;
    
44. 
    
45. @a = qw/A AA AAA AAAA AAAAA AAAA AAA AA A AA AAA AAAA/
    
46. @b = qw/B B BB BB BBB BBB BB BB B B BB BB/
    
47. zprint \@a, \@b
    
48. 
    
49. @a = 'a' .. 'i'
    
50. @b = 1 .. 9
    
51. zprint \@a, \@b, 0.5
    

复制代码