Can I use perl to do this?

[stagebi]

Hi!
I'm not really "programmer" but I have to do a script.
The purpose of this script is to have something like this on input :

CREATE TABLE : prg1;TAB1 AS
SELECT : prg1;COL1,COL2,COL3
FROM : prg1;TABLEFROM

CREATE TABLE : prg1;TAB2 AS
SELECT : prg1;ALIAS1.COL1,ALIAS2.COL2
FROM : prg1;TABLEFROM1 ALIAS1, TABLEFROM2 ALIAS2

and like this on output :

prg1;TAB1;TABLEFROM;COL1
prg1;TAB1;TABLEFROM;COL2
prg1;TAB1;TABLEFROM;COL3

prg1;TAB2;TABLEFROM1;COL1
prg1;TAB2;TABLEFROM2;COL2

Can I do this easily with perl?

The input file is an simplify exemple, I paste you a real data file :

CREATE TABLE : programme1.out;TABLE1 AS
SELECT : programme1.out; DISTINCT PERS.ID_PERS
FROM : programme1.out;TAB_GRP GRP , TAB_PERS PERS
CREATE TABLE : programme1.out;TABLE2 AS
SELECT : programme1.out;ID_PERS,
FROM : programme1.out;TABLE_FROM1

Regards

 

[feherke]

Hi

stagebi forgot to mention it, this discussion started in thread271-1548929. There is posted his current [tt]gawk[/tt] solution, if that helps you guys.

Feherke.

http://rootshell.be/~feherke/

 

[KevinADC]

So with the real input file:

CREATE TABLE : programme1.out;TABLE1 AS
SELECT : programme1.out; DISTINCT PERS.ID_PERS
FROM : programme1.out;TAB_GRP GRP , TAB_PERS PERS
CREATE TABLE : programme1.out;TABLE2 AS
SELECT : programme1.out;ID_PERS,
FROM : programme1.out;TABLE_FROM1

What should the output be?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stagebi]

Hi,
The output should be something like this :

programme1.out;TABLE1;TAB_PERS;DISTINCT ID_PERS (or just ID_PERS, DISTINCT only if it's possible but not essential)
programme1.out;TABLE2;TABLE_FROM1;ID_PERS

 

[KevinADC]

Sorry, but "something like this" is not good enough. Be specific.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[stagebi]

Soory, so the outpu should be :

programme1.out;TABLE1;TAB_PERS;ID_PERS
programme1.out;TABLE2;TABLE_FROM1;ID_PERS

Thanks

 

[KevinADC]

Can you explain why the output is like that? From just looking at your input and desired output I can't see any logical reason why it should be what you have posted.

------------------------------------------
- Kevin, perl coder unexceptional!