yep -- and backticks sets $? with the return code as well, so you get both
if you want.
----- Original Message -----
From: "Paul" <[EMAIL PROTECTED]>
To: "J. Patrick Lanigan" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Wednesday, May 02, 2001 8:47 PM
Subject: Re: system call question
>
> --- "J. Patrick Lanigan" <[EMAIL PROTECTED]> wrote:
> > Now that I have CGI working with apache on my server, I am
> > experimenting.
> > Anyhow, I wrote the following script and was wondering how to capture
> > the output of a system call. I am trying to capture the output so
> that
> > I can format it for the browser.
>
> system() returns the exit code of the command.
> backticks return it's output.
>
> system("ls foo") returns 0 if foo is there, or the code if it fails.
> `ls foo` returns "foo\n" if foo exists, or nothing if there is no foo
> (though in either the command might produce some kernel-based error
> output...)
>
> > #!/usr/bin/perl -w
> > use strict;
> > use CGI qw(:standard);
> >
> > print header(), start_html("Online Manpage Accessor"), h1("Online
> > Manpage
> > Accessor");
> > if (param()) {
> > my $manpage = param("manpage");
> > my @output = system("man $manpage"); #trying to capture,
> > #but it goes to the browser
> > } else {
> > print hr, start_form;
> > print p("Enter manpage: ", textfield("manpage"));
> > print p(submit("lookup"), reset("clear"));
> > print end_form, hr;
> > }
> > print end_html();
> >
> > Thanks,
> > Patrick
> >
>
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! Auctions - buy the things you want at great prices
> http://auctions.yahoo.com/
