Assistenza necessaria con script perl

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

Ok, theres un file di registro contenente le seguenti. Permette di chiamare il file di log log_fantastic:

2009/03/16 21:42:45 UTENTE: tonnabo - MAC: 0014BF2D385A - STATUS_ID: 30 - STATO: ERRORE
2009/03/16 21:42:45 UTENTE: tonnabo - MAC: 001310AC120D - STATUS_ID: 15 - STATO: OK
2009/03/16 21:42:45 UTENTE: tonnabo - MAC: 001DD9277095 - STATUS_ID: 20 - STATO: ERRORE

Voglio scrivere un perl script che leggere il contenuto di log_fantastic e uscita solo le righe che non ha ancora una status_id del 10?

il sottostante è quello che ho fatto. non è sicuro se questo è corretto:

l'uso dei dati:: Dumper;

main ();

Sub Main (
my @ risultati;
my $ headers \u003d "utente,
l'indirizzo MAC,
status_id ";

my (@ log_info, @ dircontents);

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

Dumper stampa ( "test");
foreach my $ contenuto (@ log_info) (
chomp ($ content);
my $ line \u003d substr ($ content, -2);
stampa Dumper ($ line);
if ($ line eq "OK") (
push @ dircontents, $ content;
)
)

# push @ alarm_info, uc $ header;

stampa Dumper (@ dircontents);

)

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

avete bisogno di un perl script per fare questo? :

Codice:

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

O c'è di più ad esso ...?

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

Citazione:

Originalmente inviato da curleb

avete bisogno di un perl script per fare questo? :

Codice:

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

O c'è di più ad esso ...?

oh theres più. i coulda facilmente fare questo attraverso la programmazione nella shell. ma questo deve essere fatto in perl. sulla parte superiore del grepping le voleva stato ids, i goto istituito nei campi. un milione di grazie per il suggerimento

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

Prova la perl script: --
\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") o dir ( "couldnt aprire il file");
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

Citazione:

Originalmente inviato da jambesh

Prova la perl script: --
\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") o dir ( "couldnt aprire il file");
while (<FH>)
(
$ rec \u003d $ _;
chomp ($ rec);
@ arr \u003d split (/:/,$ rec);
print $ rec, "\ n" if ($ arr [5]! ~ / 10 /);
)
close (FH);

funziona perfettamente. grazie un milione.

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

Questo dovrebbe essere più efficiente e più accurato:

Codice:

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

Più di UNIX e Linux Forum Argomenti potreste trovare utili
Filo	Thread Starter	Forum	Risposte	Ultimo Post
Libro Giallo assistenza necessaria	FL1	UNIX for Dummies Domande & Risposte	2	11-15-2007 04:04 PM
Script Needed urgenti in guscio o PERL !!!!!!!!!!!!!!!!!!!!	aajan	Shell scripting e di programmazione	1	10-24-2007 04:28 AM
Script in Perl assistenza; incolla in parola comando esterno	bru	Shell scripting e di programmazione	10	02-23-2007 04:04 AM
L'assistenza necessaria.	12yearold	UNIX for Dummies Domande & Risposte	4	07-07-2006 03:26 AM
NFS mount assistenza necessaria ...	Heron	UNIX for Dummies Domande & Risposte	2	03-21-2005 04:31 PM

Thread Tools	Cerca in questo Thread
Visualizza Versione stampabile Invia questa pagina	Cerca in questo Thread: Ricerca Avanzata
Modalità di visualizzazione	Vota questo thread
Passa alla modalità lineare Hybrid Mode Switch to Threaded Mode	Vota questo thread:


	Powered by