"rotate" von einer log-datei - #65108 (Allgemeines zu Perl)

master

2006-04-20 11:57

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

@Arach
ok..

ps. bleib hartnäckig, und schau das example an, und versuche erst mal nur das modul mit einer kleinen testdatei zum laufen zu bringen. erst danach ins richtige system implementieren.

das modul ist recht simpel

Code: (dl )

    $bw = File::ReadBackwards->new( 'log_file' );

    while( defined( $log_line = $bw->readline ) ) {
            print $log_line;
    }

zuerst wird ein objekt erzeugt $bw
dann in der while Schlaufe $log_line immer mit der neusten Zeile gefüttert.

Begrenzen kannst du es z.b. so. um nur 10 Zeilen zu lesen..

Code: (dl )

for (1..10)
{
print $bw->readline;
}

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;