在perl中分割和過濾linux命令的輸出

Question

我正在創建一個perl腳本，以便在返回SIP中繼線狀態的PABX系統上運行。我很新的Perl和想從下面的命令創建一個使用輸出腳本

/usr/sbin/asterisk -rx "sip show registry" 

返回以下輸出

Host   dnsmgr Username  Refresh State  Reg.Time     
x.x.x.x:5060 N  02xxxxxxxx 105  Registered Thu, 28 Aug 2014 06:34:21 
1 SIP registrations. 

我要過濾的用戶名字段，並得到國家場，我可以通過以下命令輕鬆地在命令行執行此操作，但無法在perl中執行此操作。還有哪些是最佳實踐，使用perl函數或將數據傳遞迴像grep和awk這樣的程序？

/usr/sbin/asterisk -rx "sip show registry" | awk '/02xxxxxxxx/ {print $5}' 

返回無論在狀態欄，在這個例子中，它返回

Registered 

然後，我想如果語句狀態比較的和執行取決於狀態的行動，這一點似乎雖然很容易。

在這個例子中，只有一個SIP中繼，但可能有很多。

Answer 1

使用Perl函數更快，更容易調試。

open my $AST, '-|', '/usr/sbin/asterisk', '-rx', 'sip show registry' or die $!; 
while (<$AST>) { 
    print +(split)[4], "\n" if /02xxxxxx/; 
} 

或者，有些更詳細：

open my $AST, '-|', '/usr/sbin/asterisk', '-rx', 'sip show registry' or die $!; 
while (my $line = <$AST>) { 
    if ($line =~ /02xxxxxx/) { 
     my @items = split ' ', $line; 
     print $items[4], "\n" ; 
    } 
} 

瞭解更多： open， print， split， Perl syntax。