Zitat:

Zitat von nani123 Sehr geehrte Scripting Experten, Anfrage an mich auf dem Weg zu Spaltenwerte Zeilen

Ihr Beispiel nicht bewegen Spalten Zeilen, er teilt Linien.

Hier ist ein Shell-Lösung.

Code:

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

Zitat:

Zitat von pkumar3 Hi ich habe ein ähnliches Problem. Source-Datei-Format ist der 1, a, b, c, d, e, f, g, h 2 3, F, G, H, I, L 4 5, m, n Und die erwartete Ausgabe-Datei 1, a, b, c 1, d, e, f 1, g, h 3, f, g, h 3, I, L 5, m, n Ich habe diese Methode awk-F: '$ 1! \u003d p1 (printf "% s,% s,% s,% s \ n", $ 1, $ 2, $ 3, $ 4) $ 2! \u003d p2 (printf "% s,% s,% s ,% s \ n ", $ 1, $ 5, $ 6, $ 7, $ 8; p1 \u003d $ 1; p2 \u003d $ 2) ' die Anzahl der Säulen in der Quelldatei ist varriable Länge und wachsen können, bis 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