calling awk commands in perl script

bharatbsharma · 10-31-2007, 04:23 AM

I want to execute awk command in perl script

my working awk command is
awk '{$1 = ""; $2 = ""; print}' f1.txt

which i am calling in perl script using

system ( " awk '{$1 = ""; $2 = ""; print}' f1.txt " );

but executing this through perl is not working.

do i need to use escape characters?

How do i use them?

Gethyn · 10-31-2007, 05:00 AM

Please don't double post.

vermaden · 10-31-2007, 05:00 AM

Code:

#! /bin/sh

len=10
conv=10
# like that
awk '{print v1, v2}' v1=$len v2=$conv
# or like that
awk '{print "'"$len"'", "'"$conv"'"}'

Disillusionist · 11-02-2007, 07:07 PM

If you change:

Code:

system ( " awk '{$1 = ""; $2 = ""; print}' f1.txt " );

into:

Code:

system(" awk '{\$1 = \"\"; \$2 = \"\"; print}' f1.txt");

the $ and " symbols will then be correctly passed to the awk command.