Wie Regex in Perl zu verwenden

Question

Ich brauche Hilfe, ich habe eine Ausgabe von einem Befehl und müssen nur die Zeit, d. H. "10:57:09" aus dem Ausgang extrahieren.

Der Befehl lautet: tail -f /var/log/sms

Befehlsausgabe:

Thu 2016/08/04 10:57:09 gammu-smsd[48014]: Read 0 messages 

wie könnte ich dies in Perl zu tun und das Ergebnis in die Variable

Danke

Answer 1

Perl-Code:

$txt = "Thu 2016/08/04 10:57:09 gammu-smsd[48014]: Read 0 messages"; 
$txt =~ /(\d{2}:\d{2}:\d{2})/; 
print $1; # result of regex 
print "\n"; # new line 

Und es druckt:

10:57:09 

Das Ergebnis geht auf eine Variable $1 aufgrund der Erfassung Klammer genannt. Hätte es mehr gewesen Capturing runde Klammer ihren erfassten Text int $2 gesetzt haben würde, $3 etc ...

EDIT

Um die Linie von der Konsole zu lesen, in dem obigen Skript verwenden:

$txt = <STDIN>; 

Nun nehmen wir das Skript myscript.pl genannt wird, führen tail etwa so:

tail -f /var/log/sms | myscript.pl 

Answer 2

Normalerweise würden wir erwarten, dass Sie einige Beweise dafür vorlegen, dass Sie versuchen, das Problem selbst zu lösen, bevor Sie eine Antwort geben.

Sie verwenden den Match-Operator (m/.../), um zu überprüfen, ob eine Zeichenfolge mit einem regulären Ausdruck übereinstimmt. Die m wird oft weggelassen, so dass Sie es als /.../ geschrieben sehen. Standardmäßig stimmt es mit der Variablen $_ überein, aber Sie können dies ändern, indem Sie den Bindungsoperator =~ verwenden. Wenn eine Regex Klammern enthält ((...)), dann wird alles, was mit diesem Abschnitt der Regex übereinstimmt, in $1 (und $2, $3 usw. für nachfolgende Klammern) gespeichert. Diese "erfassten" Werte werden auch vom Vergleichsoperator zurückgegeben, wenn er im Listenkontext ausgewertet wird.

Es ist immer eine gute Idee, den Rückgabewert des Match-Operators zu überprüfen, da Sie höchstwahrscheinlich verschiedene Aktionen ausführen möchten, wenn das Match nicht erfolgreich war.

Weitere Details zum Match-Operator und perldoc perlre finden Sie unter perldoc perlop für weitere Details zu Perls Regex-Unterstützung.

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

$_ = 'Thu 2016/08/04 10:57:09 gammu-smsd[48014]: Read 0 messages'; 

if (my ($time) = /(\d\d:\d\d:\d\d)/) { 
    say "Time is '$time'"; 
} else { 
    say 'No time found in string'; 
} 

und die Daten von externen Prozess zu bekommen ...

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

open my $tail_fh, 'tail -f /var/log/sms |' or die $!; 
while (<$tail_fh>) { 
    if (my ($time) = /(\d\d:\d\d:\d\d)/) { 
    say "Time is '$time'"; 
    } else { 
    say 'No time found in string'; 
    } 
}