[J.Poornima]

Hi Experts,

I want to extract the table name and the database names using perl scripts from a file which contains the following

select D.dept_id,E.emp_name, E.emp_addr from department:t_dept D,employee:t_emp E where D.emp_id = E.dept_id

here department and employee are the database names
and t_dept and t_emp are the tablenames

Thanks in advance.

Regards,
Poornima.

[sco08y]

Does this work:

perl -pe "$_=join(qq{\t}, /\w+:\w+/g).qq{\n};" filename filename ...

If you can manually inspect the results, a regular expression is fine. Otherwise you need to parse the SQL, which is not a trivial matter.