perl -pe regexの問題

Question

正規表現パターンのテキスト入力を確認するためにperlを使用しますが、1つのパターンはperl -peで動作しません。

次のパターンは、コマンド呼び出しでは動作しません：

s![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)/.*!$1! 

は、私はLinuxのシェルを使用しています。続いて、私は私の正規表現をテストするために使用するコール：

cat test | perl -pe 's![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)/.*!$1!' 

ファイルテスト：

A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
A MaintanceGie?\195?\159mannFlock/System/Comp-Cache/abc.h

結果：

A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
Cache

どのように私は、最初の結果を削除することができますか？

ありがとうございました。

Answer 1

$ cat input 
A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
A MaintanceGie?\195?\159mannFlock/System/Comp-Cache/abc.h 

$ perl -ne 'print if s![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)/.*!$1!' input 
Cache

Answer 2

"Comp - （。*）"の後の最後のスラッシュは、それを実行している可能性があります。 「データベース」のファイル内容にスラッシュはありません。 Comp-(.*)/.*をComp-(.*)[/.].*に置き換えて、サブディレクトリまたはファイル拡張子と一致するようにしてください。

Answer 3

問題は、正規表現の最後のスラッシュ文字です。ドットをエスケープするのではなく、入力文字列にはないスラッシュ文字だけです。

s![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)[./].*!$1! 

編集：は、新たな入力データと一致するように更新し、別のオプションを追加しました：このお試しください

perl -ne 'print "$1\n" if /Comp-(.*?)[.\/]/' 

：一方

を、交換用の正規表現は次のように置き換えられるかもしれません

それから、それが含んでいるものと完全な行を解析する必要はありません。

Answer 4

\ sは空白（空白、タブ、改行）と一致し、「+」は1つ以上の文字を意味します。この場合、 '\ s +'は1つ以上の空白を検索することを意味します。

cat test 
A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
A MaintanceGie?\195?\159mannFlock/System/Comp-Cache/abc.h 

perl -ne 'print "$1\n" if /\w+?\d+?\d+\w+\/\w+\/Comp-(\w+)[\/]/' test