From: "Siva Prasad" <[EMAIL PROTECTED]>
> while(<$FILE_H>)
>
> {
>
> next unless /()/;
>
> my @Rows=grep(/()/,<$FILE_H>);
>
> return(@Rows);
use HTML::TableExtract;
Jenda
= [EMAIL PROTECTED] === http://Jenda.Krynicky.cz =
When it comes to wine, women and song, wizards are allowed
t
On 10/22/07, Siva Prasad <[EMAIL PROTECTED]> wrote something resembling:
> sub GET_Values
> {
> my $Rows;
> my $cate;
What are those variables used for?
> my $self=shift;
> print "$self->{InputFile}\n";
> (open my $FILE_H '<', $self->{InputFile}) || die"cannot open the input
> file";
> while(<$F
Hi Gurus,
I got the mistake which I was doing.
Thanks a lot
PP.
_
From: Siva Prasad [mailto:[EMAIL PROTECTED]
Sent: Monday, October 22, 2007 8:01 PM
To: 'beginners@perl.org'
Subject: problem with variable scope
Hi Gurus,
I have written a packag
On 10/22/07, Siva Prasad <[EMAIL PROTECTED]> wrote:
>
> while(<$FILE_H>)
>
> {
>
> next unless /()/;
>
> my @Rows=grep(/()/,<$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` befor
Hi Gurus,
I have written a package as below.
__PACKAGE
package parseSite;
use strict;
use warnings;
sub new {
my $class = shift;
my $Input_file=shift;
