Hi EveryBody,
I am beginner in perl. I am trying for following program for displaying no. of license on apache. But it is giving 0 output in browser. But in command line it comes number (e.g. 25).
Can anybody please tell me why happening this?
Thanx in advance.
###### process.pl######
#!/usr/bin/perl -w
use CGI qw(:standard);
print "content-type: text/html \n\n";
my $lic1 = "";
$lic1 = `lmstat -a -c 8064\@servername -feature Abaqus|grep "start" |wc -l`;
$ENV{'myvar'} = "$lic1";
print `perl end.pl`;
exit;
#####ouput.pl######
#!/usr/bin/perl -w
use CGI qw(:standard);
if($ENV{'myvar'}) {print "success!<br />" . $ENV{'myvar'};}
else {print "failure ";}
exit;