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/
