请教一个数组转化问题！

求浩871227

想用perl写一个convert程式，能把txt文件内的数据的位置转化，如我下图所示。txt文件内的数据其实是二进制，只有1和0，只要把它们的位置按下面的规律调换就行了。

1    4
2    5
3    6
想将它转化为：
1    2
3    4
5    6

请问用perl该如何实现？提供思路或者用什么函数来实现都行，非常感谢！
最近刚接触perl，望大神们帮帮忙！

q1208c

没看出有啥规律.

难道是排序后两两输出?

旋转小马

能不能多贴点文本？？？

求浩871227

感谢您的回复！是想用perl写一个convert程式，能把txt文件内的数据的位置转化，如我上面所示。txt文件内的数据其实是二进制，只有1和0，只要把它们的位置按上面的规律调换就行了，不知是否有办法？回复 2# q1208c


   

求浩871227

谢谢回复！是想用perl写一个convert程式，能把txt文件内的数据的位置转化，如我上面所示。txt文件内的数据其实都是二进制，并没规律，只有1和0，只要把它们的位置按上面的规律调换就行了回复 3# 旋转小马


   

afukada

應該是文件內本來有一個 (N+1) X (M+1) 的array (假設 M > N 且 M+1 < 2N+2)

經過轉換後仍然維持 (N+1) X (M+1)

依照這個格式轉換
(0,0) -> (0,0)
(1,0) -> (0,1)
(2,0) -> (0,2)
...
(N,0) -> (0,N)
(N+1,0) -> (1,0)
(N+2,0) -> (1,1)
...
(M,0) -> (1,M-N)
(0,1) -> (1,M-N+1)
(1,1) -> (1,M-N+2)
(2,1) -> (1,M-N+3)
...

是這個意思嗎?

stanley_tam

建议楼主提供一个sample文件{:3_193:}

求浩871227

感谢回复，sample文件如图！回复 7# stanley_tam


   

求浩871227

感谢回复！我试试这个思路！回复 6# afukada


   

xiumu2280

Like this?

1. my @f;my @b;
   
2. foreach my $line (<DATA>) {
   
3.         my ($a,$b) = split /\s+/,$line;
   
4.         push @f,$a;
   
5.         push @b,$b;
   
6. }
   
7. my @new = (@f,@b);
   
8. foreach my $ele (0..$#new) {
   
9.         next if $ele%2;
   
10.         print "$new[$ele]\t$new[$ele+1]\n";
    
11. }
    
12. 
    
13. 
    
14. 
    
15. __DATA__
    
16. 1    5
    
17. 2    6
    
18. 3    7
    
19. 4    8

复制代码

1. 1       2
   
2. 3       4
   
3. 5       6
   
4. 7       8
   

复制代码