Hilfe benötigt mit Perl-Script - Das UNIX-und Linux-Foren

SkySmart · #1 (**permalink**) 03-17-2009

Ok, Theres eine Log-Datei mit dem unten. Rufen Sie die Log-Datei können log_fantastic:

2009/03/16 21:42:45 USER: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - ZUSTAND: ERROR
2009/03/16 21:42:45 USER: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - ZUSTAND: OK
2009/03/16 21:42:45 USER: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - ZUSTAND: ERROR

Ich möchte, dass sich an, um einen perl Skript, das den Inhalt der log_fantastic und Ausgang nur die Zeilen, die nicht über eine status_id von 10?

Das folgende ist das, was ich je gemacht habe. nicht sicher, ob diese korrekt ist:

use Data:: Dumper;

main ();

Sub Main (
my @ Ergebnisse;
my $ headers \u003d "Benutzer,
MAC-Adresse,
status_id ";

my (@ LOG_INFO, @ dircontents);

open (LOG, "</ home / jhenson / log_fantastic");
@ LOG_INFO \u003d <LOG>;
close (LOG);

print Dumper ( "Test");
foreach my $ Inhalt (@ LOG_INFO) (
chomp ($ content);
my $ line \u003d substr ($ content, -2);
print Dumper ($ line);
if ($ line eq "OK") (
Push @ dircontents, $ content;
)
)

# push @ alarm_info, UC $ headers;

print Dumper (@ dircontents);

)

curleb · #2 (**permalink**) 03-17-2009

Sie brauchen eine perl Skript, dies zu tun? :

Code:

grep -v 'STATUS_ID: 10 ' ${file:-"/home/jhenson/log_fantastic"}

Oder gibt es mehr dazu ...?

SkySmart · #3 (**permalink**) 03-17-2009

Zitat:

Zitat von curleb

Sie brauchen eine perl Skript, dies zu tun? :

Code:

grep -v 'STATUS_ID: 10 ' ${file:-"/home/jhenson/log_fantastic"}

Oder gibt es mehr dazu ...?

oh Theres mehr zu. i coulda leicht gemacht durch die Shell-Programmierung. aber das ist zu tun, perl. oben auf der Grepping Sie den gewünschten Status-IDs, ich lese ihn bis in den Bereichen. vielen Dank für Ihre Anregung

jambesh · #4 (**permalink**) 03-17-2009

Probieren Sie die perl Skript: --
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d

#! / usr / bin /perl
open (FH, "log_fantastic") oder R. ( "Couldnt Datei öffnen");
while (<FH>)
(
$ rec \u003d $ _;
chomp ($ rec);
@ arr \u003d split (/:/,$ rec);
print $ rec, "\ n" if ($ arr [5] ~ / 10 /);
)
close (FH);

SkySmart · #5 (**permalink**) 03-17-2009

Zitat:

Zitat von jambesh

Probieren Sie die perl Skript: --
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d

#! / usr / bin /perl
open (FH, "log_fantastic") oder R. ( "Couldnt Datei öffnen");
while (<FH>)
(
$ rec \u003d $ _;
chomp ($ rec);
@ arr \u003d split (/:/,$ rec);
print $ rec, "\ n" if ($ arr [5] ~ / 10 /);
)
close (FH);

Dies funktioniert perfekt. Dank einer Million.

KevinADC · #6 (**permalink**) 03-17-2009

Dies sollte effizienter und genauer:

Code:

open(FH,"log_fantastic") or dir ("Couldnt open file: $!");
while(my $line = <FH>) {
   next if (/STATUS_ID: 10 /);
   print;
}
close(FH);

Mehr UNIX-und Linux-Forum Themen Vielleicht finden Sie hilfreiche
Faden	Thread Starter	Forum	Antworten	Last Post
Yellow-Book Unterstützung erforderlich	FL1	UNIX for Dummies Questions & Answers	2	11-15-2007 04:04 PM
Script benötigt dringend in der Schale oder Perl !!!!!!!!!!!!!!!!!!!!	aajan	Shell Programmierung und Scripting	1	10-24-2007 05:28 AM
Perl-Skript Unterstützung; Word in externen Kommandos	bru	Shell Programmierung und Scripting	10	02-23-2007 04:04 AM
Unterstützung benötigt.	12yearold	UNIX for Dummies Questions & Answers	4	07-07-2006 04:26 AM
NFS-mount Hilfe benötigt ...	Heron	UNIX for Dummies Questions & Answers	2	03-21-2005 04:31 PM

Thread Tools	Suche diesen Thread
Zeige Druckversion E-Mail Diese Seite	Suche diesen Thread: Erweiterte Suche
Anzeige-Modi	Rate this thread
Wechseln Sie in den Linear-Modus Hybrid-Modus Switch to Threaded Mode	Rate this thread:


	Powered by