Citazione:

Originalmente inviato da nani123 Cari esperti di scripting, Richiesta di guida a me nel movimento colonna valori di righe

Il tuo esempio non si muove a righe colonne, che divide le linee.

Ecco una shell soluzione.

Codice:

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

Citazione:

Originalmente inviato da pkumar3 Salve ho un problema analogo. fonte del file è in formato 1, a, b, c, d, e, f, g, h 2 3, f, g, h, i, l 4 5, m, n E il file di output attesi 1, a, b, c 1, D, E, F 1, g, h 3, f, g, h 3, I, L 5, m, n Ho utilizzato questo metodo 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) ' il numero di coloumns nel file sorgente è varriable di lunghezza e possono crescere fino a 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