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

Sandrine CHEN · Sandrine CHEN

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 · Anno Siegel

Sandrine CHEN <sandrinechen@hotmail.com> wrote in comp.lang.perl.misc:

> 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 · Steve Grazzini

Sandrine CHEN <sandrinechen@hotmail.com> wrote:

>
> 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.

--
Steve

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

Thread Tools

Display

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

Similar Questions and Discussions

How to add "..." button to a property to open up "File Open"?

PDF and program won't open; "Error in Acrord32" "This program has performed an illegal operation and

Force GetUrl to open dialog box "open or save"

animation "open" onPress( animation "close" ) go to Frame "myFrame"

Unable To Open File "..." Because It Is Already Open With Write Permission

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

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

Posting Permissions