Ihre Arbeitsweise. großartig.

Können Sie mir bitte helfen, um das Skript, wie es berechnet wie unten aus der Ausgabedatei -

Wie viele mit CREATE RESP: 3 *
Wie viele mit CREATE RESP: 9 *
Wie viele mit CREATE RESP: 9?3?????
Wie viele mit CREATE RESP: 9?3?96


CREATE
RESP: 3010

CREATE
RESP:911364896

DELETE
RESP: 0

SET
RESP: 911265678

Und natürlich, die insgesamt 9 * wird die Anzahl der 9?? 3 ...

perl -nle'
  BEGIN { $/ = "</log>"; $, = "\n"; $\ = "\n\n" }
  print /<fullOperation>(.*?):.*<fullResult>(.*?:.*?)[:;]/s;
  if ($1 eq "CREATE") {
    $r = (split /:/, $2)[1];
    $r =~ /^3/ and $r3++;
    $r =~ /^9/ and $r9++;
    $r =~ /9\d{2}3\d{5}/ and $r93++;
    $r =~ /9\d{2}3\d{3}96/ and $r9396++;
    }
  END {
    printf "3* : %d\n9* : %d\n9??3????? : %d\n9??3???96 : %d\n",
    $r3, $r9, $r93, $r9396;
    }' infile

Oaaaao ........ seine wirklich toll. Ich erwartet, dass die Ausgabe auf diese Weise.

Ich muss hinzufügen, die SET-, DELETE-Logik mit den unten CREATE. Beispiel -

Wie viele SET mit RESP: 3 *
Wie viele SET mit RESP: 9 *
Wie viele SET mit RESP: 9? 3 ?????
Wie viele SET mit RESP: 9? 3?? 96

Darf ich das Skript, wie unter -

perl NLE-"
BEGIN ($ / \u003d "</ log>", $, \u003d "\ n"; $ \ \u003d "\ n \ n")
Print / <fullOperation> (.*?):.*< fullResult >(.*?:.*?)[:;]/ s;
if ($ 1 eq "Erstellen") (
$ r \u003d (split /: /, $ 2) [1];
$ r \u003d ~ / ^ 3 / und $ r3 + +;
$ r \u003d ~ / ^ 9 / und $ r9 + +;
$ r \u003d ~ / 9 \ d (2) 3 \ d (5) / und $ r93 + +;
$ r \u003d ~ / 9 \ d (2) 3 \ d (3) 96 / $ und r9396 + +;
)
if ($ 1 eq "SET") (
$ r \u003d (split /: /, $ 2) [1];
$ r \u003d ~ / ^ 3 / und $ r3 + +;
$ r \u003d ~ / ^ 9 / und $ r9 + +;
$ r \u003d ~ / 9 \ d (2) 3 \ d (5) / und $ r93 + +;
$ r \u003d ~ / 9 \ d (2) 3 \ d (3) 96 / $ und r9396 + +;
)

END (
printf "CREATE 3 *:% d \ nCREATE9 *:% d \ nCREATE9? ????? 3:% d \ nCREATE9? 3?? 96:% d \ n",
$ r3, $ r9, r93 $, $ r9396;

printf "SET3 *:% d \ nSET9 *:% d \ nSET9? ????? 3:% d \ nSET9? 3?? 96:% d \ n",
$ r3, $ r9, r93 $, $ r9396;

) 'Infile

Gut,
Sie brauchen mehr Code
Try something like this (einige Erklärungen müssen möglicherweise angepasst werden):

perl -wnle'
BEGIN { 
    $/ = "</log>"; 
    our %pats = qw/3* 3 9* 9 9??3????? 9\d{2}3\d{5} 9??3???96 9\d{2}3\d{3}96/;
    } 
  our ($r, $op, $res, $in);    
  if (($op, $r) = /<fullOperation>(.*?):.*<fullResult>(.*?:.*?)[:;]/s) {
    printf "%s\n%s\n\n", $op, $r;
    $res = (split /:/, $r)[1];
    for (keys %pats) {
      $ops{$op}{$_}++ if $res =~ /^$pats{$_}/;
      }
    }
END {
    $, = " ";
    print "-" x 20;
    while (my ($k, $v) = each %ops) {
      printf $k, ": ";
      while (my ($k, $v) = each %$v) {
        print "\t$k : $v\n";
      }
    }
  }' infile

Es scheint zu groß. Ich habe gerade einmal testen. Haben Sie eine schöne Ausgabe. Ich brauche mehr zu testen. Aber ich denke Sie den Code richtig.

Hay Buddy,

leider stört dich wieder. Aber Ihr Skript ist wirklich gut. Ich hoffe, unten ist mein letzter Wunsch

Ich brauche, um die "SET"-Strings aus der Datei.
Und gerade jetzt, wenn ich die Befehle Ich sehe in allen Ausgaben in meinem Bildschirm -

CREATE
RESP: 3010

CREATE
RESP: 911364896

DELETE
RESP: 0

SET
RESP: 911265678


------------------
Anzahl der DELETE .....
count SET .....

Wie kann ich sehen, der nur die Ergebnisse der Zählung erstellen und löschen

-----------
Anzahl der DELETE ...
Anzahl der SET .....

Vielen Dank .. / / lila

Ja:

perl -wnle'
BEGIN { 
    $/ = "</log>"; 
    our %pats = qw/3* 3 9* 9 9??3????? 9\d{2}3\d{5} 9??3???96 9\d{2}3\d{3}96/;
    } 
  our ($r, $op, $res, $in);    
  if (($op, $r) = /<fullOperation>(CREATE|DELETE):.*<fullResult>(.*?:.*?)[:;]/s) {
    $res = (split /:/, $r)[1];
    for (keys %pats) {
      $ops{$op}{$_}++ if $res =~ /^$pats{$_}/;
      }
    }
END {
    $, = " ";
    print "-" x 20;
    while (my ($k, $v) = each %ops) {
      printf $k, ": ";
      while (my ($k, $v) = each %$v) {
        print "\t$k : $v\n";
      }
    }
  }' infile