I want to execute "gettag.pl -q TagName" and capture the output of the
command, I have tried different ways, but no luck!
The "gettag.pl -q TagName" will return one "1" if it's true, the TagName
exist in the Tagdb, else will return zero "0", so I would like to capture
the "1" and the "0"
1- open(FOO, "gettag.pl -q $TagName |");
while (<FOO>) {
chop;
print $_;
}
* Nothing happens here?
2- $Tag = system ("gettag.pl -q $TagName") ;
print "Tag: $Tag";
* Two things happen here:
A- If true will print to the screen
1 --> from the call to system
Tag:0 --> from print
B- if not true will print to the screen
0 --> from the call to system
Tag:0 --> from print
But I could not capture it into a variable that I can manipulate
3- @Gettag_Return = `gettag.pl -q $TagName` ;
foreach $get_line (@Gettag_Return) {
print "$get_line";
}
* Nothing happen
I have used all those techniques in the past and I know they should work!
Am I missing something?
Thanks for any advice.
-Fauzi
-----Original Message-----
From: Bellenger, Bruno (Paris) [mailto:[EMAIL PROTECTED]]
Sent: Sunday, May 21, 2000 11:55 PM
To: Perl-Win32-Users Mailing List
Subject: RE: system();
>"Hogue, Jon" wrote:
>> I want to run a dos command and play with the output of the
command.
>>
>> For example,
>>
>> If I do system("foo.exe"), how do I get the ouput of foo.exe.
(not the exit
>> status).
>Open it in a pipe:
>#open(FOO, "foo.exe|");
open(FOO, "foo.exe| 2>&1");
# adding '2>&1' will get you what foo.exe writes to STDERR too,
# not just STDOUT
# An alternative if you're not expecting lots of lines is the simpler :
@foo_return = `foo.exe` ;
# Note : The above uses backticks, not single quotes.
# Each element of @foo_return now contains one line of foo.exe's
# output (including the newline/carriage return char.).
>(Note: I've assumed this works on Perl-Win32. I've only used it on Unix.)
It does work on WIN32.
>Hamish
>Hamish Moffatt Email: [EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
>R&D Engineer, Phone: +61 3 9210 5782
>Advanced Networks Division Fax: +61 3 9210 5550
>Agilent Technologies Web: http://www.agilent.com/
<http://www.agilent.com/>
Cheers.
_____________________________________________
Bruno Bellenger
Sr. Network/Systems Administrator
---
You are currently subscribed to perl-win32-users as: [EMAIL PROTECTED]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]
