empty data file check

[sun9]

Hi,

I am using the tie module to read the contents of a file as such-

tie my @data, 'Tie::File', $file ;

How do I go about checking if there is no data in the file?

thanks.

 

[KevinADC]

just like you would with any array:

if (scalar @data == 0) {
   "there is no data";
}

or:

unless (@data) {
   "there is no data";
}

- Kevin, perl coder unexceptional!

 

[spookie]

Alternatively you can filter on filesize.

my $filesize = -s $filename;
if ( $filesize == 0 )
{
   print "Empty file!!" ;
}

--------------------------------------------------------------------------
I never set a goal because u never know whats going to happen tommorow.

 

[sun9]

If the data is present in the file what will be the value of scalar @data ?

 

[KevinADC]

If the data is present in the file what will be the value of scalar @data ?

that will be the number of lines in the file. A value of 0 (zero) indicates there are no lines.

- Kevin, perl coder unexceptional!

 

[sun9]

ok thanks.