☰

データブロックからキーと値のペアを取得する

tag-icon • tag-icon text-processing
データブロックからキーと値のペアを取得する

Q：EPS_PROFILE_ID、MMEFEATURELISTの組み合わせを持つ340039などで始まるすべてのIMSIリストが必要です。

入力する

<BEGINFILE>
<SUBBEGIN
    IMSI=340039XXXXXXXXX;
    MSISDN=59995171393;
    EPS_PROFILE_ID=1;
    PLMNTPLID=1;
    SUB_DYN_EPS_ID=1;
    MMEHOST=XXXXXXXXXXXXXXXXXXXXXXXXXX.VVV.VV;
    MMEREALM=dwcxd.dnhjxcdws.cdnjkcd;
    EPS_IMEI=155186158551851658;
    EPS_IMEISV=01;
    MMEFEATURELIST=ALL_APN;
    MMETIMESTAMP=15513535;
    S4SGSNTIMESTAMP=0;
    HLR_INDEX=1;
    LTEAUTOPROV=NO;
    MPS=NO;
    RELAY=NO;
<SUBEND
<SUBBEGIN
IMSI=340038XXXXXXXXX;
    MSISDN=59995171393;
    PLMNTPLID=1;
    CURRENTNAM=BOTH;
    CAT=COMMON;
    TBS=TS11&TS12&TS21&TS22&TS61&BS26&BS2G;
    VLRLIST=2;
    SGSNLIST=2;
<SUBEND
<ENDFILE>

希望の出力

IMSI=340039XXXXXXXXX;EPS_PROFILE_ID=1;MMEFEATURELIST=ALL_APN;

答え1

私はperlこの種の分析を好む

perl -ne '
    $/ = "\n<SUBBEGIN\n";                     # Read blocks starting with this pattern
    ($i) = /\b(IMSI=340039[^;]*)/;            # Get IMSI and value
    ($e) = /\b(EPS_PROFILE_ID=[^;]+)/;        # Get EPS_PROFILE_ID and value
    ($m) = /\b(MMEFEATURELIST=[^;]+)/;        # Get MMEFEATURELIST and value
    print "$i;$e;$m;\n" if $i && $e && $m;    # Print result only if all three items are present
' input_file

例の出力

IMSI=340039XXXXXXXXX;EPS_PROFILE_ID=1;MMEFEATURELIST=ALL_APN;

答え2

POSIX awkを使用してください。

$ cat tst.awk
BEGIN { FS="[[:space:]=]*"; OFS=";" }
/=/ { tag2val[$2] = $3 }
/<SUBEND/ {
    if ( (tag2val["IMSI"] ~ /^340039/) &&
         ("EPS_PROFILE_ID" in tag2val) &&
         ("MMEFEATURELIST" in tag2val) ) {
        print p("IMSI"), p("EPS_PROFILE_ID"), p("MMEFEATURELIST")
    }
    delete tag2val
}
function p(tag) { return tag "=" tag2val[tag] }


$ awk -f tst.awk file
IMSI=340039XXXXXXXXX;;EPS_PROFILE_ID=1;;MMEFEATURELIST=ALL_APN;

答え3

GNU sed拡張正規表現モード（-E）を使用して問題を解決する1つの方法は次のとおりです。

## holds the keys to be printed
var='IMSI EPS_PROFILE_ID MMEFEATURELIST'

sed -En '
  1{:1;x;s/.*/ '"$var"' /;x;}
  /^<SUBBEGIN$/,/^<SUBEND$/G
  /^\s+((\S+)=\S+)\n(.*) \2(\s)/!d
  s//\3\n\1\4/
  /(.*\n){3}/!{h;d;}
  /^\nIMSI=340039/s/\n|\s$//gp
  s/.*/<SUBEND/;b1
' file

IMSI=340039XXXXXXXXX;EPS_PROFILE_ID=1;MMEFEATURELIST=ALL_APN;

プレビューを使用して正規表現でアサーションを使用します。

perl -lne '
  push(@A, $_)
    if my $e = /^<SUBBEGIN$/ ... /^<SUBEND$/;
  print($1, $2, $3)
    if $e =~ /E0/ && join($/, splice(@A)) =~
    m/(?:
        (?=$p(IMSI=340039$q))
        (?=$p(EPS_PROFILE_ID=$q))
        (?=$p(MMEFEATURELIST=$q))
    )/xms;

BEGIN {
  $q = qr/ (?:(?!;)\S)+; /xms;
  $p = qr/ \A.*\n\h* /xms;
}' file

## keys provided as env to awk
s="IMSI EPS_PROFILE_ID MMEFEATURELIST" \
awk -F '^[[:blank:]]+|=' '
BEGIN {
  n = split(ENVIRON["s"],a," ")
  for (var in a) b[a[var]] = var
}
/^<SUBBEGIN$/,/^<SUBEND$/ {
  if ( /=/ && $2 in b) {
    h[$2] = $0
    sub(FS, "", h[$2])
  }
  if ( /^<SUBEND$/ ) {
    t=$0;$0=""
    for (i=1; a[i] in h; i++) $i = h[a[i]]
    split("", h, "=")
    f = (NF == n) && ($1 ~ /=340039/)
  }
}
f;{f=0}
' OFS= file

答え4


awk '/IMSI=340039/&&/EPS_PROFILE_ID/&&/MMEFEATURELIST/' filename

関連情報