Thread wtmp Log-Washer Script: Klitzekleine Hilfe plz? :) (11 answers)
Opened by FlorianL at 2007-06-11 16:26

renee
 2007-06-11 17:29
#77449 #77449
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=FlorianL,11.06.2007, 15:21]respekt!

wirklich... also wenn ich mal hören sollte das ein perlcoder gebraucht wird werd ich an dich denken :)
Auf deiner Seite habe ich ein paar aufgaben gesehn die für mich (denke ich gerad ma ohne die lösungen betrachtet zu haben) lösbar scheinen... Hast du irgendwo noch mehr in der Art rumfliegen?

[/quote]

Momentan habe ich keine in der Schublade, die nächsten drei Wochen wird das auch nichts mehr, aber danach vielleicht...

Quote

Ich hab leider niemand im bekanntenkreis der sich mit perl ausseinandersetzt, darum ist das lernen relativ einseitig und bei jedem blöden problem wo ich häng muss ich irgendwelche perlboards zu rate ziehn. (Wobei dieses hier in meiner wertung ganz oben steht, bei den anderen gabs meist garkeine oder nur unzulängliche antworten)


Fragen ist vollkommen legitim, von so etwas lebt ja auch ein Forum wie dieses.

Quote
Ansonsten... Mach ich heut nich mehr alzuviel, irgendwie hab ich nurnoch weisses rauschen im hirn und weiss nich wie ich die einzelnen zeilen durchgeh, den regex anwende und das datum extrahiere, dann überprüfe ob das "ge-reg-exte" (sic) zu alt ist, und dann wieder ins file schreib...

aber das macht heut auch nix mehr, is bald feierabend ^^

Schönen Tag noch!

Wie kann man eine Datei durchlaufen:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/perl

use strict;
use warnings;

# die Datei, die durchsucht werden soll
my $file = 'file.txt';

# oeffne die Datei
# < ist lesend, > ist schreibend, >> ist anhaengend
# 'or die $!' gibt eine Fehlermeldung aus wenn die Datei nicht
# geoeffnet werden kann (fehlende Rechte, Datei nicht da, etc)
open my $fh, '<', $file or die $!;

# so lange Zeilen ausgelesen werden
while( my $line = <$fh> ){
    # gib Zeilennummer und Zeile aus
    print $. . $line;
}

# schliesse Datei
close $fh;


Auf die Zeilen musst Du dann die Regex anwenden. Was "zu alt" ist, musst Du selbst definieren...

Spiel einfach mal etwas rum, bei Fragen weisst Du ja, wo Du posten kannst...\n\n

<!--EDIT|renee|1181568596-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread wtmp Log-Washer Script: Klitzekleine Hilfe plz? :)