Shell Programming and Scripting

1
2
3
4
5
6
1
2
3
 
 
 
1
2
3
4
 
 
1
2
3
4
5
6

1 1 1 1
2 2 2 2
3 3 3 3
4    4 4
5       5
6       6

awk '{a[NR%6]=a[NR%6]" "$0} END{for (i=1;i<=6;i++) {print o= (i!=6)? a[i] : a[0] } }' test.txt > test1.txt

$ cat test.txt
1
2
3
4
5
6
1
2
3
 
 
 
1
2
3
4
 
 
1
2
3
4
5
6
$ nawk '{a[NR%6]=a[NR%6]" "$0} END{for (i=1;i<=6;i++) {print o= (i!=6)? a[i] : a[0] } }' test.txt > test1.txt 
$ cat test1.txt
 1 1 1 1
 2 2 2 2
 3 3 3 3
 4   4 4
 5     5
 6     6

awk '{a[NR%53]=a[NR%53]" "$0} END{for (i=1;i<=53;i++) {print o= (i!=53)? a[i] : a[0] } }' test.txt  >  test1.txt

my $ref;
while(<DATA>){
	chomp;
	my $tmp = $.%6;
	my $first=($tmp==0)?6:$tmp;
	my $second=($tmp==0)?int($./6):int($./6)+1;
	$ref->[$first]->[$second]=$_;
}
my @tmp=@{$ref};
for(my $i=1;$i<=6;$i++){
	my @t= @{$tmp[$i]};
	for(my $j=1;$j<=$#t+1;$j++){
		print $t[$j]," ";
	}
	print "\n";
}
__DATA__
1
2
3
4
5
6
1
2
3
 
 
 
1
2
3
4
 
 
1
2
3
4
5
6