求助一條awk正則表達式的實現(xiàn),謝謝

youcaihuazi

如下，文本中存在如下信息，目前只需要把每條userid后兩行的信息如online打印出來，請教怎么寫awk?
userid
123
online
………………
usernumber
567
………………
userid
456
online

對于這個需求,昨天發(fā)貼求助,好幾位高手給出了命令,測試了一下如下這個是最ok的,但我看了很久沒有搞明白這個正則表達式怎么實現(xiàn)我的需求的,短信給提供這個語句的高人還沒答復,所以另開一貼盼解答,先謝謝各位高手了.
awk  '/userid/{p=1;n=NR}p && NR-n == 2'  urfile

yinyuemi

回復 1# youcaihuazi


    和正則關系不大，和p關系比較大～

awk  '/userid/{p=1;n=NR}{print $0, p, "&&", NR-n == 2}'  urfile

youcaihuazi

yinyuemi 你好,按照你解析后的命令測試了一下,輸出不正確,不明白這里定義這個變量p具體怎么用的.

youcaihuazi

awk  '/userid/{p=1;n=NR}{if(p&&NR-n == 2) print $0}' urfile

剛才測試了一下,如果修改為如上就可以了,謝謝yinyuemi 幫助.后邊{if(p&&NR-n == 2) print $0}'這部分條件清楚了,但還有個問題,前邊/userid/{p=1;n=NR}這部分正則表達式怎么用完整的邏輯表達式表現(xiàn)出來呢?

Perlvim

這個不是正則的威力，是 awk 其他命令的特性。這種代碼一般人看不懂：

提供一個 Perl 解決方案：


#!perl

use 5.014;

# 獲取數(shù)據(jù)，保存為數(shù)組
my @lines = <DATA>;
# 臨時記憶變量，來記住 userid 后過了幾行
# 初始化值永遠都不可能匹配成功
my $past_lines = 3;
foreach my $line (@lines) {
  # 去掉每行數(shù)據(jù)后的回車
  chomp $line;
  # 如果匹配到 userid 就將計數(shù)器置零
  # 否則，就遞增
  $line =~ /userid/ ? $past_lines = 0 : $past_lines++;
  # 過了兩行后，就是需要的數(shù)據(jù)
  say $line if $past_lines == 2;
}

__DATA__
userid
123
online
………………
usernumber
567
………………
userid
456
online

ren21103

p是什么用法呢？同疑問，感覺不用這個p也可以阿

{
        if( $0 ~ /userid/){
                n=NR;
        }
        if( NR-2 == n){
                print $0;
        }

}