要这样插入

Windows19

各位好...

有a  b两个文件   a文件大概有100多行，b文件大概有50多行
a文件
1111
222

b文件
/
,
+*?

要将b文件的每行字符分别插入到a文件中的每一个字符位置中去  直到完成a文件长度

两个文件行数大小不一，每行字符也有长短不一  但是有规律的  规律是将b文件内每行看成一个要插入整体

出来后应得结果:

/1111
1/111
11/11
111/1
1111/

/222
2/22
22/2
222/

,1111
1,111
11,11
111,1
1111,

,222
2,22
22,2
222,

+*?1111
1+*?111
11+*?11
111+*?1
1111+*?

+*?222
2+*?22
22+*?2
222+*?

谢谢了...

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aData = map {[split //]} (1111, 222);    #Load data from File.A
   
6. while (<DATA>){
   
7.     my $t = $1 if (/(.*)/);
   
8.     foreach my $pos (0 .. $#aData){
   
9.         my $n = 0;
   
10.         {
    
11.             my $o = $aData[$pos][$n];
    
12.             $aData[$pos][$n] = $t . $aData[$pos][$n];
    
13.             print @{$aData[$pos]}, "\n";
    
14.             $aData[$pos][$n] = $o;
    
15.             redo if ($n++ < $#{$aData[$pos]});
    
16.          }
    
17.          print @{$aData[$pos]}, "$t\n\n";
    
18.     }
    
19. }
    
20. 
    
21. __DATA__
    
22. /
    
23. ,
    
24. +*?
    

复制代码

perl abc.pl
-----------------
/1111
1/111
11/11
111/1
1111/

/222
2/22
22/2
222/

,1111
1,111
11,11
111,1
1111,

,222
2,22
22,2
222,

+*?1111
1+*?111
11+*?11
111+*?1
1111+*?

+*?222
2+*?22
22+*?2
222+*?

Windows19

回复 2# sunzhiguolu

谢谢  结果正确
但每次都要把数据放进脚本中去 将文件写成定向出来更好   像这样perl abc.pl b a

关阴月飞

1. [root@ ~]# awk 'FNR==NR{a[NR]=$0;n=NR;next}{for(i=0;i++<n;){for(s=0;s++<length(a[i]);){print gensub(".",$0"&",s,a[i])}; print a[i] $0"\n"}}' a b
   
2. /1111
   
3. 1/111
   
4. 11/11
   
5. 111/1
   
6. 1111/
   
7. 
   
8. /222
   
9. 2/22
   
10. 22/2
    
11. 222/
    
12. 
    
13. ,1111
    
14. 1,111
    
15. 11,11
    
16. 111,1
    
17. 1111,
    
18. 
    
19. ,222
    
20. 2,22
    
21. 22,2
    
22. 222,
    
23. 
    
24. +*?1111
    
25. 1+*?111
    
26. 11+*?11
    
27. 111+*?1
    
28. 1111+*?
    
29. 
    
30. +*?222
    
31. 2+*?22
    
32. 22+*?2
    
33. 222+*?
    

复制代码

Windows19

回复 4# 关阴月飞

谢谢  正确