2つの隣接する新しい行が特定の単語で始まるかどうかを調べる方法はありますか？

Question

は、私はそうのようなファイルがあるとしましょう：

+jaklfjdskalfjkdsaj 
fkldsjafkljdkaljfsd 
-jslakflkdsalfkdls; 
+sdjafkdjsakfjdskal 

私だけ-で始まる行がすぐに+で始まる行が続いているこのファイルの間に倍の量を見つけてカウントします。

ルール：

はbashスクリプト内から実行する必要があります

• 外部スクリプトが
• でなければなりませんインライン

私はPythonスクリプトでこれを行う方法を見つけ出すことができ

たとえば、私はBashでこれほど広範なことを行う必要はありませんでした。

誰でもお手伝いできますか？私はそれがgrep、perl、または多分才能のあるsedのラインになるだろうと思っていますが、これは私がまだ学んでいるものです。

ありがとうございました！ Perlで

Answer 1

簡単：

perl -lne '$c++ if $p and /^\+/; $p = /^-/ }{ print $c' FILE 

Answer 2

AWKワンライナー：

awk -v FS='' '{x=x sprintf("%s", $1)}END{print gsub(/-\+/,"",x)}' file 

例えば

kent$ cat file 
+jaklfjdskalfjkdsaj 
fkldsjafkljdkaljfsd 
-jslakflkdsalfkdls; 
+sdjafkdjsakfjdskal 
- 
- 
- 
+ 
- 
+ 
foo 
+ 

kent$ awk -v FS='' '{x=x sprintf("%s", $1)}END{print gsub(/-\+/,"",x)}' file 
3 

Answer 3

grep -A1 "^-" $file | grep "^+" | wc -l

最初のgrepは-で始まる行の全てを見つけ、-A1が生じ、それにあまりにもマッチ後の出力ライン。

次に、+で始まる行の出力をgrepします。論理的に：

1. 私たちは、最初のgrepの出力のみ-XXX行と次の行である知っている
2. 我々は+xxxラインはまた、任意の+xxx-xxxラインしたがって

することができないことを知っています行は次の行でなければならず、数えます。wc -l

Answer 4

もう1つのPerlの例です。choroba年代のように簡潔、それがどのように動作するかで、より透明ではない：

perl -e'while (<>) { $last = $cur; $cur = $_; print $last, $cur if substr($last, 0, 1) eq "-" && substr($cur, 0, 1) eq "+" }' < infile 

出力：

-jslakflkdsalfkdls; 
+sdjafkdjsakfjdskal 

Answer 5

ピュアbashの：あなたがに表示されないようPythonのタグを削除し

unset c p 
while read line ; do 
    [[ $line == +* && $p == 0 ]] && ((c++)) 
    [[ $line == -* ]] 
    p=$? 
done < FILE 
echo $c