Sayed, Irfan (Irfan) wrote:
> Hi All,
Hello,
> 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;
Why not just do that in perl:
#!/usr/atria/bin/Perl
use strict;
use warnings;
my $fname = '/tmp/checkvob_log';
open FILE, '>>', $fname or die "Cannot open '$fname' $!";
my $CT = '/usr/atria/bin/cleartool';
my @vob_list = `$CT lsvob -s`;
my @vob_list1 = `$CT lsvob`;
print FILE @vob_list1;
open FILE, '<', $fname or die "Cannot open '$fname' $!";
my @vob_path = map { ( split )[ 2 ] } @vob_list1;
print @vob_list;
print @vob_path;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
