Доброго времени суток!
как правильно написать следующую строку в перл программе?
awk '{print $2, $4}' /tmp/1 > /tmp/2
пробовал вот так:
system "awk '{print $2, $4}' /tmp/1 > /tmp/2";
- не работает.
Ругаеться следующим образом:
awk: cmd. line:1: {print , }
awk: cmd. line:1:        ^ parse error
awk: cmd. line:1: {print , }
awk: cmd. line:1:          ^ parse error

строка рабочая.

• awk строка в perl программе,gyn61, 08:52 , 29-Ноя-04
  • awk строка в perl программе,Magic, 10:08 , 29-Ноя-04
    • awk строка в perl программе,Brainbug, 12:10 , 29-Ноя-04
  • awk строка в perl программе,Аноним, 08:23 , 01-Дек-04

>Доброго времени суток!
>как правильно написать следующую строку в перл программе?
>awk '{print $2, $4}' /tmp/1 > /tmp/2
>пробовал вот так:
>system "awk '{print $2, $4}' /tmp/1 > /tmp/2";
>- не работает.
>Ругаеться следующим образом:
>awk: cmd. line:1: {print , }
>awk: cmd. line:1:        ^ parse
>error
>awk: cmd. line:1: {print , }
>awk: cmd. line:1:          
>^ parse error
>
>строка рабочая.

system "awk '{print \$2, \$4}' /tmp/1 > /tmp/2";

>system "awk '{print \$2, \$4}' /tmp/1 > /tmp/2";

Спасибо!

>>system "awk '{print \$2, \$4}' /tmp/1 > /tmp/2";
>
>Спасибо!

while (<>) {
    chomp;
    @FLD = split(' ', $_, 9999);
    print $FLD[2], $FLD[4];
}

Лучше писать так:

system q{awk ...}

или так:

system <<'EOD';
awk ...
EOD