Citation:

Posté par nani123 Chers Scripting experts, Demande de me guider dans le déplacement des colonnes aux lignes

Votre exemple ne pas déplacer les colonnes pour les lignes, il se sépare de lignes.

Voici une solution shell.

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

Citation:

Posté par pkumar3 Salut j'ai un problème similaire. fichier source est de format 1, a, b, c, d, e, f, g, h 2 3, f, g, h, i, l 4 5, m, n Et le fichier de sortie attendue 1, a, b, c 1, d, e, f 1, g, h 3, f, g, h 3, i, l 5, m, n J'ai utilisé cette méthode awk-F, '$ 1! \u003d p1 (printf "% s,% s,% s,% s \ n", $ 1, $ 2, $ 3, $ 4 $ 2)! p2 \u003d (printf "% s,% s,% s ,% s \ n ", $ 1 $, 5 $, 6 $, 7 $, 8 $; p1 \u003d $ 1; p2 \u003d $ 2) ' le no de colonnes dans le fichier source est varriable de longueur et peut atteindre jusqu'à 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