Question

用perl 文件一列转换成多列

11
1
3
2
5
66
。。。
转换成
11 2
1 5
3 66
跪求大神~~~急要

Answer 1

#!/usr/bin/perl
use strict;
use warnings;

my @arr;
open F, "E:\\test.txt" or die $!;
while(<F>){
   chomp;
   next if(/^$/);
   push @arr,$_;
}
for (my $i=0;$i<@arr/2;$i=$i+1) {
	print "$arr[$i]\t$arr[$i+3]\n";
}