help with awk command in perl

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.

Relevant Pages

  • Re: dns querry script.
    ... use warnings; ... use strict; ... C:\Dload> perl dns.pl ...
    (comp.lang.perl.misc)
  • Re: Any way to access global variable in Perl script from one module file?
    ... use strict; ... use warnings; ... a separate process has a completely separate memory space. ... There is probably no reason to create a new perl ...
    (comp.lang.perl.misc)
  • Re: Debug Help Please
    ... In Perl there is the expression TIMTOWTDI which means that you will probably get different opinions on "The Right Way" to do something in Perl. ... use strict; ... That is a specious argument because you can disable specific strictures or warnings in local scope: ... for all Failures ...
    (perl.beginners)
  • Re: Debug Help Please
    ... If you had enabled the warnings and strict pragmas then perl would have ... foreach my $logfile { ...
    (perl.beginners)
  • Re: Delete file if it contains x y or z
    ... Here's another way, but not necessarily the best Perl, but it does work: ... use strict; ... use warnings; ... chomp @filelist; ...
    (perl.beginners)