Roland M. Kruggel <rk.liste@bbf7.de> (Di 28 Nov 2006 09:05:30 CET):
> Am Dienstag, 28. November 2006 02:26 schrieb Heiko Schlittermann:
> > vielleicht ansatzweise so:
> >
> >
> > #! /usr/bin/perl -n
> > use Date::Parse;
> > BEGIN { $start = str2time shift }
> > /^((?:\S+\s+){3})/ or next;
> > print if $start <= str2time($1);
>
> Cool :)
> Ist zwar nicht bash, habe ich auch nicht verstanden (weil ich
> überhaupt kein Perl kann), aber es funktioniert. Macht genau das was
> ich will. Mit deiner Erlaubniss würde ich das 1:1 übernehmen.
Die Erlaubnis findest Du in der anderen Mail mit meiner Bankverbindung ;)
#! /usr/bin/perl -n # -n: Schleife über alle Eingabezeilen
use Date::Parse; # Modul zum Datum parsen
BEGIN { $start = str2time shift } # Initialisierung: Klartext-Startzeit in Unix-Timestamp wandeln
/^((?:\S+\s+){3})/ or next; # Nov 24 01:02:32 - 3 Token in $1 (1. Klammerpaar) einfangen
print if $start <= str2time($1); # Zeile ausgeben, wenn start <= Unix-Timestamp von $1
So ähnlich ist ;-):
#! /usr/bin/perl -n
use Date::Parse;
BEGIN { $start = str2time shift }
print if $start <= str2time(join " ", (split)[0..2]);
Aber das ist schon fast zu obfuscated.
--
Heiko
Attachment:
signature.asc
Description: Digital signature