Damn it - won't work :(
#!/usr/bin/perl
# example paths can be:
# apachectl
# apache2ctl
# httpd
my $path = 'httpd';
print "Content-Type: text/html \n\n";
print "Perl: " . $] . "<br />";
my $output = `$path -v`;
my $output2 = system(qq|$path -v|);
print "OUTPUT: ($path -v) " . $output . "<br />";
print "OUTPUT 2: ($path -v, as system()) " . $output2 . "<br />";
my @split = split /:/, $output;
if ($split[1] !~ /\d\.\d\.\d/) {
print qq|Cant find Apache version <br />|;
} else {
print qq|$split[1] <br />|;
}
..yet all that gives is:
Perl: 5.008004
OUTPUT: (httpd -v)
OUTPUT 2: (httpd -v, as system()) -1
Cant find Apache version
Seems that it doesn't like giving the results with `` or system().
Any suggestions?
TIA
Andy
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.