Re: Look Ahead/Behind Via a File Handle


There's more than one way to do things
	PerlMonks

Re: Look Ahead/Behind Via a File Handle

by benn (Vicar)

on Aug 11, 2003 at 23:32 UTC ( [id://283056]=note: print w/replies, xml )

Need Help??

in reply to Look Ahead/Behind Via a File Handle

As Zaxo says, using SQL::Statement, or a parsing module of some kind may be easier, but I think your problem could be solved simply using another 'inner' read...something like this (untested!).

while (my $line = <SCHEMA>) {
  if ($line =~/create table \".+?\"\.(.+?)$/mos) {
    $table_nm = $1; 
    print BIGLIST "$1 \n";
    my $keep = 0;
    while ($line = <SCHEMA> && $line ne ')') {
       $table_hash{$table_nm} = 1 if ($line =~ /$var_of_interest/);
    }
  }
}
[download]

Cheers,
Ben.