Perl / Sed script help

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

Salut tous,

J'aurais besoin de gÃ©nÃ©rer des scripts Oracle Inster Ã partir d'un format de feuille de calcul Excel comme suit:

Citation:

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 (ce qui n'indique pas de limite supÃ©rieure)
IDENTIFIER_NAME_SPACE:
CREDENTIAL_TYPE: ENCRYPTEDTEXT
SRVC_SPECIFICATION_ID: 2

Cette question doit Ãªtre dÃ©pouillÃ© comme suit:

Citation:

REC 1: INSERT INTO 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)
VALEURS
(1, 'heAdmin', 1,1, 'NULL', 'ENCRYPTEDTEXT', 1);

REC 2: ..

REC 1, 2, etc REC sont les sÃ©parateurs de dossiers ...

Je crois que la perle de script peut Ãªtre Ã©crit pour cela ... rien d'utile sera d'une grande aide.

Merci Ã l'avance
Sabya

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

Quelque chose comme ceci:
(utilisation nawk / ou usr/xpg4/bin/awk sur 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

Bonjour Radoulov,

Merci pour votre rÃ©ponse et dÃ©solÃ© pour mon manque de connaissances dans awk.

J'utilise solaris 10 - J'ai essayÃ© comme suit:

J'ai crÃ©Ã© un script: chk.awk

Citation:

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

saisie de texte est stockÃ©e dans un fichier: qqq

MÃªme si je suis appelant le script - Je reÃ§ois le message d'erreur suivant:

Citation:

mukher2 () / export/home/mukher2: awk-f chk.awk qqq
awk: syntax error, prÃ¨s de la ligne 2
awk: foin Ã proximitÃ© de la ligne 2
mukher2 () / export/home/mukher2:

S'il vous plaÃ®t pouvez-vous conseiller?

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

Radoulov vous a donnÃ© la commande awk complet! (vous devriez Ãªtre plus observent)

Dans votre formulaire d'exÃ©cution, prendre les awk et la seule offre dÃ¨s le dÃ©but et la fin de la commande dans votre fichier script.

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

Aussi, supprimez le texte suivant:

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

chk.awk et de lancer votre commande en tant que:

Code:

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

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

Merci Radoulov et Unilover

Fonctionne comme un charme.

Juste un petit pÃ©pin ...

- Non pas tant la maÃ®trise de dÃ©boguer et de rÃ©soudre le problÃ¨me ...

Tout (ou tous les autres documents) est sortie Ã l'exception du premier enregistrement.

La sortie est Ã venir comme:

Citation:

REC 1: INSERT INTO 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)
VALEURS
('',1, 'heAdmin', 1,1 ,'',' ENCRYPTEDTEXT ', 1);

Citation:

REC 1: INSERT INTO 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)
VALEURS
(1, 'heAdmin', 1,1 ,'',' ENCRYPTEDTEXT ', 1);

Autres que le premier record - tous les autres dossiers Ã venir sont tout Ã fait bien.

Merci encore,
Sabya

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

Changer le script comme ceci:

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
  }

Et invoquez-le comme ceci:

Code:

./script datafile

Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-Ãªtre utile
Fil	Thread Starter	Forum	RÃ©ponses	Last Post
Appel d'un script perl Ã partir d'un script perl	new2ss	De programmation et de script Shell	6	05-24-2009 06:03 PM
Inclure script PERL dans le script shell unix	Ganapati	UNIX pour les nuls Questions et rÃ©ponses	1	04-29-2008 01:18 PM
ici le document d'automatiser script perl qui appellent script	hogger84	De programmation et de script Shell	3	10-22-2007 11:15 AM
Modifier le script Perl pour travailler avec txt - autorisations de script	joangopan	De programmation et de script Shell	1	09-13-2007 12:38 AM
Perl: ExÃ©cuter script perl dans le processus actuel	vino	De programmation et de script Shell	10	12-09-2005 10:45 AM

Thread Tools	Recherche sur ce Thread
Voir la version imprimable Envoyer cette page	Recherche sur ce Thread: Recherche avancÃ©e
Modes d'affichage	Rate this thread
Switch to Linear Mode Mode Hybrid Switch to Threaded Mode	Rate this thread:


	Powered by