"rotate" von einer log-datei (Seite 2) (Allgemeines zu Perl)

[thread]7907[/thread]

"rotate" von einer log-datei (Seite 2)

Arach

2006-04-20 11:54

User since
2006-04-20
11 Artikel
BenutzerIn
[default_avatar]

jojojo.

Wie binde ich das Modul ein?
Bin noch relativ neu in Perl. ;-)
kein plan wo ich was hinkopieren muss oder was ausführen. Modul is auf Platte entpackt.
System: Win XP.

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;

Arach

2006-04-20 12:00

User since
2006-04-20
11 Artikel
BenutzerIn
[default_avatar]

sry. falsch ausgedrückt. ich teste eh noch an meinem rechner.
ich wollte wissen wie ichs hier einbinde.
wie es funktioniert hab ich verstanden.
hab jetz das modul runtergeladen und entpackt.....
was nu, damit ichs auch im script nutzen kann?

master

2006-04-20 12:02

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

Nutzt Du Active Perl?

Wenn ja =

1. Startmenu
2. Ausführen
3. ppm + enter
4. "s ReadBackwards"
5. jetzt bekommst du die auswahl mit den gefunden Modulen
6. ins <ZAHL eintippen>

Dann wirds installiert.
7. exit, nun loslegen :-)

------
falls nicht, hilft dir ev. wiki
(mit modulen hatte ich zubeginn auch mühe :-) )\n\n

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

Arach

2006-04-20 12:05

User since
2006-04-20
11 Artikel
BenutzerIn
[default_avatar]

nutze active perl. danke. wo sucht der befehl? damit ich den ordner den ich entpackt hab auch da hin stellen kann.\n\n

Arach

2006-04-20 12:24

User since
2006-04-20
11 Artikel
BenutzerIn
[default_avatar]

ausserdem krieg ich bei der suche diese fehlermeldung:

"Error: No valid repositories: Error: 500 Can't connect to
ppm.ActiveState.com:80 (connect: Unknown error)"

master

2006-04-20 12:27

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

Du brauchst natürlich internetverbindung zum active-state server.

schreib im PPM mal
"rep" als kommando dann sollten Einträge stehen bei denen Active-state(PPM) nach modulen sucht..

Wiki:

Wie installiere ich ein Modul\n\n

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

nepos

2006-04-20 12:41

User since
2005-08-17
1420 Artikel
BenutzerIn

Hm, unter Linux haette ich sowas logrotate machen lassen, da haettest nix eigenes schnitzen muessen.

Arach

2006-04-20 13:04

User since
2006-04-20
11 Artikel
BenutzerIn
[default_avatar]

Ich krieg keine verbindung zu dem repository.
hab aber ja das modul schon con cpan runtergeladen.

wie kann ichs nu per hand installieren? ich blick bei dem wiki nich durch.
der will jedes mal wieder auf das repository zugreifen.

Matze

2006-04-20 13:22

User since
2005-08-29
222 Artikel
BenutzerIn

Eigentlich sollte doch bei dem Modul auch ein Makefile.PL, eine readme oder sonstiges dabei sein, oder ?
Lies dir mal die readme durch, da steht sicher drin wie dus von Hand installieren kannst.

Wenn du nich weiter kommst, kannst du ja mal schreiben was in der readme steht.

MfG. Matze

Mit freundlichen Grüßen: Matze

View all threads created 2006-04-20 11:05.