checking if a file is empty

[PRADEEP GOEL]

Hi all
///////////////////////////////////////////
if($TYPE eq "HP-UX")
  {  `/usr/sbin/swlist | grep  "OV NNM" |cut -f1> RF1 `;}
else
  {  `find /system/ -name deins_patch |cut -f3 -d /  > RF1`; }

#########################
how to check if the  newly made file RF1 is empty or not ?
#########################
open(RFh1,"RF1") or die "Not able to open RF1 \ n";
      my @pachs = <RFh1> ;
my($num3)  = $pachs[0]=~ /_(\d+)$/;

I want $num3 to be 0 if   RF1  is empty .

////////////////////
thanks & rgds
Pradeep


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]