On 10/22/07, Siva Prasad <[EMAIL PROTECTED]> wrote: > > while(<$FILE_H>) > > { > > next unless /(<div.*?<\/table><br><br>)/; > > my @Rows=grep(/(<div.*?<\/table><br><br>)/,<$FILE_H>); > > return(@Rows); > > close $FILE_H; > > } >
Well,the first error I have noticed,you have lost a "}" in the code above. Have you run `perl -c parseSite.pm` before you use it? -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/