引用：

当初の投稿 nani123 親愛なるスクリプトの専門家、 リクエスト行に列の値を動かすのに私ガイド

あなたの例の行に列を移動していませんが、行を分割します。

ここでは、シェルのソリューションです。

コード：

IFS=,
set -f
while read line
do
  set -- $line
  if [ $# -le 4 ]
  then
    print "$line"
  else
   a=$1
   shift
   while [ $# -gt 3 ]
   do
     printf "%s," "$a" "$1" "$2"
     printf "%s\n" "$3"
     shift 3
   done
   printf "%s," "$a"
   while [ $# -gt 1 ]
   do
     printf "%s," "$1"
     shift
   done
   printf "%s\n" "$1"
  fi
done < "$FILE"

$ cat file
1,a,b,c,d,e,f,g,h
2,f,g,h,i,l
$ awk -F, '{
  printf$1FS;c=0
  for(i=2;i<=NF;i++)
    printf$i (++c%3?i==NF?RS:FS:RS$1FS)
}' file
1,a,b,c
1,d,e,f
1,g,h
2,f,g,h
2,i,l

引用：

当初の投稿 pkumar3 こんにちは私は似たような問題を抱えている。 ソースのファイル形式の一つです 1 、 AとBはC 、 d 、 eには、 F 、 gの時間 2 3のf 、 gの時間、私は、リットル 4 5メートル、 Ñ と期待される出力ファイル 1 、 AとBはC 1 、 d 、 eには、 F 1グラム、 hは 3のf 、 gの時間 3 、私は、リットル 5メートル、 Ñ 私はこのメソッドを使用する awkは- Fが、 ' $ 1 ！ \u003d p1の（ printf " ％ sは、 ％ 、 ％ 、 ％ \ Ñ " 、 $ 1 、 $ 2 、 $ 3 、 $ 4 ） $ 2 ！ \u003d p2の（ printf " ％ sは、 ％ 、 ％ sは秒秒、 ％ \ Ñ " 、秒$ 1 、 $ 5 、 $ 6 、 $ 7 、 $ 8 ; p1の\u003d $ 1 ;のP2 \u003d $ 2 ） ' ソースファイルではないcoloumnsのvarriableされ、 3000の長さの最大成長することができます。

perl -F, -nae'if($#F){s/((?:(?:.*?),){3}[^,]*)/$1\n$F[0]/g;print}' filename

$ cat nani123.py 
#!/usr/bin/env python

input = open("temp.txt", 'r')

for line in input:

    line = line.rstrip()
    line = line.split(',')
    num = line[0]
    data = line[1:]

    while data:
        print num + "," + ','.join(data[:3])
        data = data[3:]

perl -F, -pae's/((?:(?:.*?),){3}[^,]*)/$1\n$F[0]/g' file