you have to execute the awk statement on the operating system level
with the system,
that is:
system ("$cmd1");
On Aug 29, 2006, at 10:40 AM, Sayed, Irfan ((Irfan)) wrote:
Hi All,
I have a following script in perl in which i am using awk command
but it
is not getting executed properly.
# /usr/atria/bin/Perl -w
use strict;
use warnings;
my $fname = "/tmp/checkvob_log";
open(FILE,">>$fname");
my $CT = "/usr/atria/bin/cleartool";
my @vob_list = `$CT lsvob -s`;
my @vob_list1 = `$CT lsvob`;
print FILE @vob_list1;
my $cmd1 = "awk '{print $3}' /tmp/checkvob_log";
my @vob_path = qx{$cmd1};
print @vob_list;
print @vob_path;
can anybody please help.
Regards
Irfan.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
