Shell Programming and Scripting

1,2,3,4,5,6,7,8,9

1,2,3
4,5,6
7,8,9

awk -F, '{for(i=1;i<=NF;i++){{S=S?S OFS $i:$i} if(i%3==0){print S;S=""}}}' OFS=, Input_file

1,2,3
4,5,6
7,8,9

#!/usr/bin/perl

use warnings;
use strict;

my @result;

my $filename = "new_num.txt";

my $i;
unlink $filename;

#START:
while(<>) {

$_ =~ s/,/\n/g;

if (($. == 1) .. ($. == 3)) {

#$_ =~ s/^ //g;

push (@result,$_);


print "@result";

foreach $i (@result) {

$i =~ s/\n/,/g;

open FILE,">>$filename" or die "Cannot read the file $filename: $!\n";

print FILE "$i";

#print FILE "\n";

@result = ();


#goto START;

}

input=( {a..z} )
C=0
count=0
limit=3
max=${#input[@]}

while [[ $C -lt $max ]];do
	while [[ $count -lt $limit ]];do
		out+=" ${input[$C]}"
		C=$((C+1))
		count=$((count+1))
	done
	echo "$out" ; out=""
	count=0
done

sh ~/file1.txt 
 a b c
 d e f
 g h i
 j k l
 m n o
 p q r
 s t u
 v w x
 y z

awk -F, '{for(i=1;i<=NF;i++){{S=S?S OFS $i:$i} if(i%3==0){print S;S=""}}}' OFS=, Input_file

1,2,3
4,5,6

xargs -d"," -n3 Input_file

1 2 3
4 5 6
7