perl脚本求助,循环的问题

kejiake

我有两个文件，一个文件数据很少，例如：
cat a.txt
a
b
c
另一个文件数据比较多，例如:
cat b.txt
1
2
3
4
5
6
7
8
9
10

现在需要将b的数据，每两行和a进行配对，如果a不足，要从头再开始，要求的结果是：
a=>1
a=>2
b=>3
b=>4
c=>5
c=>6
a=>7
a=>8
b=>9
b=>10
...
求各位指点下，实在想不出来了

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = ();
   
6. while(<DATA>){
   
7.         last if(/\A\Z/);
   
8.         my ($k) = split;
   
9.         push(@aData, $k);
   
10. }
    
11. 
    
12. my ($pos, @aT) = (0, ());
    
13. while(<DATA>){
    
14.         my ($v) = split;
    
15.         next if(push(@aT, $v) <= 1);
    
16.         $pos %= @aData;
    
17.         print("$aData[$pos] => $_\n") for splice(@aT, 0);
    
18.         $pos++;
    
19. }
    
20. 
    
21. __DATA__
    
22. a
    
23. b
    
24. c
    
25. 
    
26. 1
    
27. 2
    
28. 3
    
29. 4
    
30. 5
    
31. 6
    
32. 7
    
33. 8
    
34. 9
    
35. 10
    

复制代码

Okelani

perl  ab.pl a.txt b.txt > c.txt

1. #!/usr/bin/perl
   
2. my $true = pop;
   
3. my @loop = grep { chomp } <>;
   
4. @ARGV = $true;
   
5. 
   
6. while ($true) {
   
7.     for (@loop) {
   
8.         print "$_=>", <> // exit;
   
9.         print "$_=>", <> // exit;
   
10.     }
    
11. }
    

复制代码

rubyish

perl abc.pl a.txt b.txt > c.txt

1. #!/usr/bin/perl
   
2. $_    = pop;
   
3. @_    = grep chomp, <>;
   
4. @ARGV = $_;
   
5. print "$_[($.-1)/2%@_]=>$_" while <>;

复制代码