Pradeep Goel wrote:
>
> Hi all
Hello,
> ///////////////////////////////////////////
> 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 .
Why not just store the contents from the backticks?
my $num3;
if ( $TYPE eq 'HP-UX' ) {
($num3) = map /^_(\d+)\t.*OV NNM/, `/usr/sbin/swlist`;
}
else {
($num3) = map m!/[^/]*/_(\d+)!, `find /system/ -name deins_patch`
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
