Perl / Sed script hjelp

sabyasm · #1 (**permalink**) 06-04-2008

Hei Alle,

Jeg mÃ¥tte generere Oracle Inster skript fra et Excel-formatert regnearket som fÃ¸lger:

Sitat:

SRVC_ROLE_SPECIFICATION
REC 1
SRVC_ROLE_SPEC_ID : 1
SRVC_ROLE_TYPE : HeAdmin
MIN_NUMBER_ALLOWED : 1
MAX_NUMBER_ALLOWED : 1
IDENTIFIER_NAME_SPACE : NULL
CREDENTIAL_TYPE : ENCRYPTEDTEXT
SRVC_SPECIFICATION_ID : 1
REC 2
SRVC_ROLE_SPEC_ID: 2
SRVC_ROLE_TYPE: emailLite
MIN_NUMBER_ALLOWED: 1
MAX_NUMBER_ALLOWED: 10
IDENTIFIER_NAME_SPACE:
CREDENTIAL_TYPE: ENCRYPTEDTEXT
SRVC_SPECIFICATION_ID: 1
REC 3
SRVC_ROLE_SPEC_ID: 3
SRVC_ROLE_TYPE: hostopiaAdmin
MIN_NUMBER_ALLOWED: 1
MAX_NUMBER_ALLOWED: 1
IDENTIFIER_NAME_SPACE:
CREDENTIAL_TYPE: ENCRYPTEDTEXT
SRVC_SPECIFICATION_ID: 2
REC 4
SRVC_ROLE_SPEC_ID: 4
SRVC_ROLE_TYPE: voicemailAdmin
MIN_NUMBER_ALLOWED: 1
MAX_NUMBER_ALLOWED: 1
IDENTIFIER_NAME_SPACE:?
CREDENTIAL_TYPE: ENCRYPTEDTEXT
SRVC_SPECIFICATION_ID: 2
REC 5
SRVC_ROLE_SPEC_ID: 5
SRVC_ROLE_TYPE: voicemailUser
MIN_NUMBER_ALLOWED: 1
MAX_NUMBER_ALLOWED: NULL (dette indikerer ingen Ã¸vre grense)
IDENTIFIER_NAME_SPACE:
CREDENTIAL_TYPE: ENCRYPTEDTEXT
SRVC_SPECIFICATION_ID: 2

Dette mÃ¥ vÃ¦re avkledt som fÃ¸lger:

Sitat:

REC 1: setter inn SRVC_ROLE_SPECIFICATION (SRVC_ROLE_SPEC_ID, SRVC_ROLE_TYPE, MIN_NUMBER_ALLOWED, MIN_NUMBER_ALLOWED, MAX_NUMBER_ALLOWED, IDENTIFIER_NAME_SPACE, CREDENTIAL_TYPE, SRVC_SPECIFICATION_ID)
VERDIER
(1, 'heAdmin', 1,1 "NULL", "ENCRYPTEDTEXT ', 1);

REC 2: ..

REC 1, REC 2 osv. er skilletegnene av postene ...

Jeg tror en perle script kan skrives pÃ¥ denne ... noe nyttig vil vÃ¦re til stor hjelp.

Takk pÃ¥ forhÃ¥nd
Sabya

radoulov · #2 (**permalink**) 06-04-2008

For eksempel slik:
(bruk nawk eller / usr/xpg4/bin/awk Solaris)

Code:

awk 'END { 
  printf fmt, ++c, tab, cols, values 
  }
NR == 1 { 
  tab = $1 
  fmt = "REC %d: INSERT INTO %s(%s)\nVALUES\n(%s);\n" 
  next 
  }
/^REC/ && cols { 
  printf fmt, ++c, tab, cols, values 
  cols = "" 
  values = "" 
  next 
  } 
{ 
  $2 = $2 ~ /^[0-9]/ ? $2 : q $2 q 
  cols = cols ? cols "," $1 : $1 
  values = values ? values "," $2 : $2 
  }' FS=" *: *" q="'" input

sabyasm · #3 (**permalink**) 06-04-2008

Hei Radoulov,

Takk for svar og beklager for min mangel pÃ¥ kunnskap i awk.

Jeg bruker Solaris 10 - Jeg har prÃ¸vd som fÃ¸lger:

Jeg har laget et script: chk.awk

Sitat:

#! / usr/xpg4/bin/awk
awk 'END (
printf FMT, + + c, kategorien cols, verdier
)
NR \u003d\u003d 1 (
tab \u003d $ 1
FMT \u003d "REC% d: INSERT INTO% s (% s) \ nVALUES \ n (% s) \ n"
neste
)
/ ^ REC / & & cols (
printf FMT, + + c, kategorien cols, verdier
cols \u003d ""
verdier \u003d ""
neste
)
(
$ 2 \u003d $ 2 ~ / ^ [0-9] /? $ 2: q $ 2 q
cols \u003d cols? cols "," $ 1: $ 1
verdier \u003d verdier? verdier "," $ 2: $ 2
) "FS \u003d" *: * "q \u003d" "

input tekst lagres i en fil: QQQ

Mens jeg ringer skriptet - Jeg fÃ¥r fÃ¸lgende feilmelding:

Sitat:

(mukher2) / export/home/mukher2: awk-f chk.awk QQQ
awk: syntaksfeil nÃ¦r linje 2
awk: bailing ut nÃ¦r linje 2
(mukher2) / export/home/mukher2:

VÃ¦r kan du rÃ¥d?

unilover · #4 (**permalink**) 06-04-2008

Radoulov har gitt deg den fullstendige awk kommando! (du mÃ¥ vÃ¦re mer observent)

I form av gjennomfÃ¸ring, ta ut awk og enkelt anfÃ¸rselstegn fra begynne og slutten av kommandoen i skriptet-fil.

unilover · #5 (**permalink**) 06-04-2008

OgsÃ¥ fjerne fÃ¸lgende:

FS \u003d "*: *" q \u003d ""

fra chk.awk og kjÃ¸re en kommando som:

Code:

awk -f chk.awk FS=" *: *" q="'" qqq

sabyasm · #6 (**permalink**) 06-04-2008

Takk Radoulov og Unilover

Arbeider like en ynde.

Bare et lite problem ...

- Ikke sÃ¥ mye dyktigere til Ã¥ feilsÃ¸ke og fikse problemet ...

Everything (alle andre poster) kommer ut unntatt den fÃ¸rste posten.

Utdataene kommer ut:

Sitat:

REC 1: setter inn SRVC_ROLE_SPECIFICATION (REC 1,SRVC_ROLE_SPEC_ID, SRVC_ROLE_TYPE, MIN_NUMBER_ALLOWED, MAX_NUMBER_ALLOWED, IDENTIFIER_NAME_SPACE, CREDENT IAL_TYPE, SRVC_SPECIFICATION_ID)
VERDIER
('',1 "heAdmin ', 1,1 ,'',' ENCRYPTEDTEXT', 1);

Mens det skal vÃ¦re: (bare elementene markert i rÃ¸dt mÃ¥ fjernes)

Sitat:

REC 1: setter inn SRVC_ROLE_SPECIFICATION (SRVC_ROLE_SPEC_ID, SRVC_ROLE_TYPE, MIN_NUMBER_ALLOWED, MAX_NUMBER_ALLOWED, IDENT IFIER_NAME_SPACE, CREDENTIAL_TYPE, SRVC_SPECIFICATION_ID)
VERDIER
(1, 'heAdmin', 1,1 ,'',' ENCRYPTEDTEXT ', 1);

Annet enn den fÃ¸rste posten - alle andre poster kommer helt fint.

Takk igjen,
Sabya

radoulov · #7 (**permalink**) 06-04-2008

Endre script som dette:

Code:

#! /usr/xpg4/bin/awk -f

END {
  printf fmt, ++c, tab, cols, values
  }
NR == 1 {
  tab = $1
  fmt = "REC %d: INSERT INTO %s(%s)\nVALUES\n(%s);\n"
  FS = " *: *"
  q = "'"
  next
  }
/^REC/ && cols {
  printf fmt, ++c, tab, cols, values
  cols = ""
  values = ""
  next
  }
{
  $2 = $2 ~ /^[0-9]/ ? $2 : q $2 q
  cols = cols ? cols "," $1 : $1
  values = values ? values "," $2 : $2
  }

Og bruker dette pÃ¥ fÃ¸lgende mÃ¥te:

Code:

./script datafile

Mer UNIX og Linux Forum Emner Du kan finne nyttig
TrÃ¥d	TrÃ¥d startet	Forum	Svar	Siste innlegg
Ringe en perl skript fra et perl script	new2ss	Shell programmering og Skripting	6	05-24-2009 05:03
Inkluder PERL skriptet med i unix shell script	ganapati	UNIX for Dummies SpÃ¸rsmÃ¥l og svar	1	04-29-2008 12:18
her dokumentet Ã¥ automatisere perl skript som kaller script	hogger84	Shell programmering og Skripting	3	10-22-2007 10:15
Modificar Perl-skript til Ã¥ arbeide med txt - Tillatelser script	joangopan	Shell programmering og Skripting	1	09-12-2007 11:38
Perl: KjÃ¸r perl skript i den aktuelle prosessen	Vino	Shell programmering og Skripting	10	12-09-2005 10:45

Thread Tools	SÃ¸k i denne trÃ¥den
Vis Printable Version Email denne siden	SÃ¸k i denne trÃ¥den: Avansert sÃ¸k
Visningsmoduser	Ranger denne trÃ¥den
Switch to Linear Mode Hybridmodus Switch to gjengede Mode	Ranger denne trÃ¥den:


	Powered by