per 的变量l如何调用awk?

romario94

假设我的代码 正确地得到了 变量在 $e1中，我想用awk  处理这个变量，如下代码不行，因为 $e1不能正确传入 shell命令。

$e1 = `wep $line`;
my $cmd = q($e1 | awk '{print $16","$4","$22}' >> XX-OP-Mstr-EPList);
`$cmd`;


我打印出来$e1 如下：
                     object 1278500431.442200.517+#TMF_Endpoint::Endpoint#
                      label affdbdr.vip.com.com
                    version 41146
                         id 5F77D02C-1DD2-11B2-B3D4-A0381DD30753
                    gateway 1278500431.358910.23
               pref_gateway 1278500431.358910.23
                    netload OBJECT_NIL
                     interp solaris2
                 login_mode desktop|constant
                   protocol TCPIP
                    address 10.107.201.14+9460
          mac address (WOL) NONE
          subnet mask (WOL) NONE
                     policy OBJECT_NIL
                      httpd tivoli:W=4eV!N!
                      alias OBJECT_NIL
                 crypt_mode NONE
               upgrade_mode enable
                  ep_status connected
                status_time 2007/10/16-21:26:25
                error_codes
            last_login_time 2007/03/26-15:25:20 [Passed]
           last_logout_time 2007/03/26-14:48:22 [Passed]
        last_migration_time 2007/03/15-09:17:13 [Passed]
         last_downcall_time 2007/10/16-04:06:32 [Passed]
           last_upcall_time 2007/10/11-20:25:52 [Passed]
         last_ep_check_time 2007/10/16-21:01:58 [Passed]
allow_distribution_control off

我想取出来的是address, interp , label

放驴娃

都 Perl 了，还 awk

nkcsx

这个标题真难懂

Lonki

转义

my $str = 'ls -l';
my $cmd = qq/$str | awk '{print \$1}'/;

system($cmd);