Re: help with awk command in perl
- From: mumia.w.18.spam+nospam@xxxxxxxxxxxxx (Mumia W.)
- Date: Tue, 29 Aug 2006 14:15:47 -0500
On 08/29/2006 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");
Check if the open failed. Read "perldoc -f open."
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";
[...]
That $3 is expanded inside the perl interpreter--long before awk gets it. Put a backslash in front of it to delay expansion.
.
- References:
- help with awk command in perl
- From: Irfan Sayed
- help with awk command in perl
- Prev by Date: Re: Totally lost - need a starting point
- Next by Date: Re: splitting strings
- Previous by thread: Re: help with awk command in perl
- Next by thread: Cgi with GD grap, and displaying graphs
- Index(es):
Relevant Pages
|
