Rückgabe einer Teilzeichenfolge mithilfe von Perl-regex

Ich bin Herumspielen mit Perl und versuchen, zu einem besseren Verständnis der substring/regex-Funktionalität.

Sagen, ich habe einen string wie

[48:31.8] Gesendet: >33*1311875297587*eval*0* * frame[0]*"Ein"<

und wollen zurück 1311875297587. Es wird immer in diesem format. Wie kann ich dies tun, mit Hilfe von Perl?

Dank

Beschreiben Sie, wie identifizieren Sie den Teil des Interesses. String von Ziffern mindestens 3 Ziffern lang ist? Beginnen Sie mit 4. Zeichen ">"? Ziffern vor dem "* "eval"? etc...

InformationsquelleAutor Roger | 2011-08-01

  1. 10

    Davon aus, dass "[48:31.8]..." ist in $string ist, dann:

    my ($number) = $string =~ /\*(\d+)\*eval\*/;

    $number undefiniert, wenn der string nicht übereinstimmen, sonst wird es enthalten die Ziffern zwischen "*" und "*eval*".

    Ich würde split, dass die Eingabe auf * und analysiert werden, basierend auf dem Teilstring-Nummer. Weniger hack, mehr robust.

    InformationsquelleAutor Sean

  2. 2
    if ($str =~ /\*(\d+)\*/ ) {
    print $1;
}

    InformationsquelleAutor Karoly Horvath

  3. 1
    my ($num) = '>33*1311875297587*eval*0*frame[0]*"A"<' =~ /(\d{3,})/;
print $num;

    InformationsquelleAutor abra

  4. 0

    Für was es Wert ist, ich denke, das ist eine robustere Antwort:

    while(<STDIN>)
{
    @fields = split(/\*/,$1) if(/(?<=>)([^<>])+(?><)/);
    print "$fields[1]\n";
}

    Dies ermöglicht den Zugriff auf alle Ihre Felder, wenn Sie Sie brauchen, und verlässt sich nicht auf die Ordnung zu analysieren, aus einem bestimmten Bereich.

    Ersetzen Sie die while Schleife mit welchem line-by-line-iteration, die Sie wollen. Für die Prüfung, obwohl, führen Sie dies als ein Perl-Skript, und fügen Sie dann in Ihre Linie [48:31.8] Sent: >33*1311875297587*eval*0*frame[0]*"A"< oder sonst was ist.

    InformationsquelleAutor kevlar1818

Schreibe einen Kommentar