Also, there's an article on Perl.com on lexing SQL statements, Lexing your data, which is something simpler than parsing... but, it might be enough.

Parsing T-SQL is hard, I know because I've tried.

For tables created and altered you can get away with simple regex/grep, but for tables used I would forget parsing and use the sysdepends table.

Here's part of the code I use to generate a tags file from several thousand T-SQL creation scripts

sub gettags {
    my $filename=shift;
    return unless (-e $filename);

    my $objlinenumber;
    
    my $obj='(alter|create)\s+(procedure|proc|function|view)\s+([\.\_\
+w]+)';

        ## Not doing variables, useless across multiple files
    #my $var='^(declare|[\s\,])*\@(\w+)\s+[\(\)\w\d\_]+';  
    my (%obj,@ret);
    
    my $line=0;
    
    open O, "<$filename" or die $!;
    while (<O>) {
        $line++;
        chomp;
        if (/$obj/i) { 
            $obj{$3}=$line; 
        }    # proc | func | view
        if (/create\s+rule\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # rule
        if (/sp_addtype\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # UDT
        if (/create\s+default\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # def
+ault
        if (/create\s+table\s+([\.\_\w]+)/i) {$obj{$1}=$line;} # table
    }
    close O;
    
    foreach $obj (keys %obj) {
        $objlinenumber=$obj{$obj};
        push @ret,"$obj\t$filename\t$objlinenumber\n";    
    }
    
    @ret;    
}
[download]

And here's some T-SQL code to show what tables are 'used' (updated) by a given stored proc.

-- 
--- What tables does the given procedure(s) update?
-- 
declare @Procs table ( id int , depid int )


insert into @Procs (id) values (object_id('my_table'))

-- add rows here
-- add rows here

-- de-nest these procs
while 1 = 1 begin
   insert into @Procs (id,depid)   
      select distinct
            sd.depid,
            sd.id
      from sysdepends sd
         inner join sysobjects so on sd.depid = so.id
         inner join @procs procs on procs.id = sd.id
       where sd.depid not in (Select id from @Procs)
       and (so.xtype <> 'u')


    if @@rowcount > 0
       break
end


-- get a list of updated tables
select distinct
    object_name(sd.id)      as [ProcName],
    object_name(sd.depid)   as [TableName]
from sysdepends sd
   inner join @procs procs on procs.id = sd.id
where resultObj = 1
[download]

I have written a little something that graphs SP calls and inserts, updates, selects etc. in SPs. If that is what you're after, I can see if it's in a releasable state.

/J