open (RES, "/usr/bin/top -bs -n 1 |");

Sandrine CHEN · Sep 16, 2003

Thank you to tell me why:

I have one program like following, it could display results on HTML
page on one machine, but not on another which has the same kernel of
2.4.18-3, Redhat Linux, I star to wonder is it that i haven't written
the program in a way more popular, or there is other point that i need
to check or take care?

What's more, on the same machine(that result couldn't display), if i
run the script manually under command line, it couldn't display
results.

Why!

____________________________________________
#!/usr/bin/perl -w

print "Content-type: text/html\n\n";
print "<html>\n";
print "<test of result>";
print "<body>";

open (RES, "/usr/bin/top -bs -n 1 |");
while (<RES>) {
print $_,"<br>";
}
close RES;

print "</body>";
____________________________________________

thank u very much...
print "</html>";

Anno Siegel · Sep 16, 2003

Sandrine CHEN said:
Thank you to tell me why:

I have one program like following, it could display results on HTML
page on one machine, but not on another which has the same kernel of
2.4.18-3, Redhat Linux, I star to wonder is it that i haven't written
the program in a way more popular, or there is other point that i need
to check or take care?

What's more, on the same machine(that result couldn't display), if i
run the script manually under command line, it couldn't display
results. Why!

So obviously there is a difference between the two machines.

What does it mean when you say "couldn't display results"? Does the
program show no output at all? Does it show part of the expected
output, and if so, where does it stop. Does the program finish normally,
finish with a return code, or not finish at all (hang)?

Without you telling us more, there is no chance of guessing what the
difference may be.

____________________________________________
#!/usr/bin/perl -w

print "Content-type: text/html\n\n";
print "<html>\n";
print "<test of result>";
print "<body>";

open (RES, "/usr/bin/top -bs -n 1 |");

You should check the return value of open(). That may give you
a first hint.

while (<RES>) {
print $_,"<br>";
}
close RES;

print "</body>";
____________________________________________

thank u very much...
print "</html>";

Anno

Steve Grazzini · Sep 16, 2003

Sandrine CHEN said:
open (RES, "/usr/bin/top -bs -n 1 |");
while (<RES>) {
print $_,"<br>";
}
close RES;

The error-checking for piped open works like this:

#
# open can also fail on fork(), pipe() or exec()
#

open my $top, '-|', qw(/usr/bin/top -bs -n 1)
or die "Couldn't start top: $!";

print while <$top>;

#
# close also fails if wait() yields nonzero exit status
#

close($top) or die "close: ", $! || $?;

Without any error checks, of course you don't know what went wrong.
If the open() fails, then perl will give you the right error. If
"top" is failing and you want to capture the diagnostic (i.e. not just
the wait() status) use IPC::Open3 to catch its stderr.

Python client/server that reads HTML body from server	1	Apr 12, 2023
why /usr/bin/cpan can't find HTML::Mail ?	1	Jul 3, 2007
Javascript scroll to sections and also scroll to section but open relevant nav-tab	4	Feb 25, 2022
Generator using item[n-1] + item[n] memory	0	Feb 14, 2014
Survey details won't go through using php, ajax, Mysql	0	Oct 26, 2023
sendmail not working - any alternatives?	9	Oct 12, 2013
ChatBot	4	Jan 19, 2021
Top down Python	4	Feb 12, 2014

open (RES, "/usr/bin/top -bs -n 1 |");

Sandrine CHEN

Anno Siegel

Steve Grazzini

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads