Perlのマッチパターンからの印刷

Question

私はテキスト形式の結果を私に提供するPerlスクリプトを持っています。 このテキストから一部の情報のみを印刷する必要があります。 Perlで印刷するための開始パターンと終了パターンを定義するにはどうすればよいですか？

Answer 1

あなたが何を求めているのか正確にはわかりませんが、試してみます。 プレーンテキストを含むファイルをストリーミングする場合、「qos-policing-policy rate-2M-in（適用）qos-metering-policy rate-2M-out（適用）」の行だけを除外したいとします。そして、だけそれらの単語を抽出し、その後、次のコードは、スクリプトを書くためにどのようなアイデアを与えることができる：

のPerlプログラム：

#!/usr/bin/perl 
# test.pl 

use strict; 
use warnings; 

while(<>) { 
     my @a = m/(qos-\S+\s+\S+\s+\(applied\))/g; 
     for my $i (@a) { 
      print "$i "; 
     } 
     print "\n" if (@a); 
} 

これはあなたの開始パターンと終了パターンのようになります。

m/qos-\S+\s+\S+\s+\(applied\)/g 

開始位置：

qos- 

と終わりである：

\(applied\) 

"G" オプションが入ってくるライン上のグローバルマッチのために使用されているが。

入力：

> cat textFile.txt 
Current port-limit unlimited Protocol Stack IPV4 ip address (applied) qos-policing-policy rate-2M-in (applied) qos-metering-policy rate-2M-out (applied) [sCLIPS]Redback(config-ctx) 
line number two is here 
Stack IPV4 ip address (applied) qos-policing-policy rate-299M-in (applied) qos-metering-policy 

出力：ここ

> cat textFile.txt | perl ./test.pl 
qos-policing-policy rate-2M-in (applied) qos-metering-policy rate-2M-out (applied) 
qos-policing-policy rate-299M-in (applied)