Behöver scripting Hjälp

nani123 · #1 (**permalänk**) 10-10-2008

Bäste Scripting experter,
Begär att vägleda mig i att flytta kolumnen värden till rader
Exempel:
Fil 1:

1, A, B, C, D, E, F, G, H
2, F, G, H, I, L

Utdatafilen
1, a, b, c
1, d, e, f
1, G, H
2, F, G, H
2, I, L

Egentligen försökte jag med hjälp av awk och sed men tyvärr kunde jag inte få resultanten.

Hälsningar
nani

cfajohnson · #2 (**permalänk**) 10-10-2008

Citat:

Ursprungligen postat av nani123

Bäste Scripting experter,
Begär att vägleda mig i att flytta kolumnen värden till rader

Ditt exempel inte flytta kolumner till rader, det delar upp rader.

Här är ett skal lösning.
Kod:
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"
Om filen är stor, det kommer att vara långsam, och du bör konvertera scriptet till awk med samma logik.

radoulov · #3 (**permalänk**) 10-10-2008

Använd nawk eller / usr/xpg4/bin/awk på Solaris:

Kod:

$ 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 · #4 (**permalänk**) 10-13-2008

Plz Hitta felet i följande kod

cut-f 7,34 --d "," first97col.CSV | awk-F \ "(
if ($ 2 !\u003d"") printf $ 1FS c \u003d 0
for (i \u003d 2; i <\u003d NF, i + +)
printf $ i (+ + c% 4? i \u003d\u003d NF? RS: FS: RS $ 1FS) fi;
) '

radoulov · #5 (**permalänk**) 10-13-2008

Citat:

Ursprungligen postat av pkumar3

Hej Jag har ett liknande problem.
källfilen är av format
1, A, B, C, D, E, F, G, H
2
3, F, G, H, I, L
4
5, m, n

Och den förväntade utdatafilen
1, a, b, c
1, d, e, f
1, G, H
3, F, G, H
3, I, L
5, m, n

Jag använde denna metod
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) '

det ingen av coloumns i källfilen är varriable längd och kan växa upp till 3000.

Kod:

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

ShawnMilo · #6 (**permalänk**) 10-10-2008

Här är en ganska enkel Python tillvägagångssätt (testas och arbete).

Kod:

$ 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:]

Test:

Kod:

$ cat temp.txt 
1,a,b,c,d,e,f,g,h
2,f,g,h,i,l


$ python nani123.py 
1,a,b,c
1,d,e,f
1,g,h
2,f,g,h
2,i,l

radoulov · #7 (**permalänk**) 10-10-2008

Perl saknas:

Kod:

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

Mer UNIX och Linux Forum Ämnen Du kan hitta Helpful
Tråd	Thread Starter	Forum	Svar	Senaste Inlägg
Ny på manus, Behöver hjälp	newbie22102	Shell-programmering och Skript	2	02-25-2008 11:08
scripting hjälp	james94538	Shell-programmering och Skript	2	02-08-2008 07:36
Skillnaden mellan AIX shell scripting och Unix shell scripting.	haroonec	Shell-programmering och Skript	2	04-12-2006 09:12
scripting guru's pls hjälpa mig med scripting på AIX	thatiprashant	Shell-programmering och Skript	1	01-20-2006 07:58
Ksh Scripting	dstaller	Shell-programmering och Skript	1	11-16-2005 02:30

Thread Tools	Sök i denna tråd
Visa Utskriftsversion Mejla den här sidan	Sök i denna tråd: Avancerad sökning
Visningslägen	Betygsätt denna tråd
Switch to Linear Mode Hybridläge Switch to Gängade Mode	Betygsätt denna tråd: