Hi Monks,

I have a sql statement like

 Select e.empno as employee, e.deptno as department, d.loc as location
+ from emp e,dept d where e.deptno= d.deptno;
[download]

I need to parse the above sql statement to get the columns and tables used. So my output should be the columns (empno,deptno,loc)and tables (emp, dept). I need this to be done with PERL script and i dont have that much knowledge in PERL.

It would be a great help for any small hint also..

Thanks for your valuable time..

Regards,
Rahul

Code tags added by GrandFather