Script Perl question. Qu'est-ce que je fais de mal?

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

#! / usr / local / bin /perl

open (MyFile ", logs_report ');

while (<monfichier>) (

$ rec \u003d $ _;
chomp ($ rec);
@ arr \u003d split (/ /, $ rec);
print $ rec, "\ n" if ($ arr [12]! ~ / OK /);

open (MYF, '> donnees.txt');

print $ rec, "\ n" if ($ arr [12]! ~ / OK /);
close (MYF);

)
close (MyFile);

ok, voici ce que j'essaie de u. Je suis l'ouverture du fichier logs_report et je suis grepper seulement pour les lignes à ne pas avoir OK en elle.

Maintenant, le résultat que je reçois de ce que je grep "essaye d'écrire dans un fichier.

Comment puis-je faire?

de manière à peu près, je tente d'ouvrir un fichier, lire le contenu du fichier, extraire certaines lignes de ce fichier, et l'impression de certaines lignes i, je veux écrire dans un fichier. Comment puis-je faire? aussi, si je veux envoyer le fichier qui est écrit pour, est-il une façon de faire que, dans perl?

matrixmadhan · #2 (**permalink**) 03-18-2009

Citation:

print $ rec, "\ n" if ($ arr [12]! ~ / OK /);

écrire sur le fichier et non pas à l'eau

Code:

print MYF $rec,"\n" if ($arr[12]!~/OK/);

pludi · #3 (**permalink**) 03-18-2009

Code:

#!/usr/local/bin/perl

open (MYFILE, 'logs_report');
open (MYF, '>data.txt');

while ($rec = <MYFILE>) {
    chomp($rec);
    @arr = split(/ /,$rec);
    if ($arr[12] !~ /OK/) {
        print $rec, "\n";
        print MYF $red, "\n";
    }
}
close (MYF);
close (MYFILE);

C'est probablement ce que vous voulez. La façon dont vous avez écrit, vous souhaitez remplacer votre donnees.txt à chaque fois que vous trouvez quelque chose, plus d'ouverture et de fermeture à maintes reprises dans une boucle peut être assez I / O coûteux.

Et la prochaine fois que vous affichez la liste ou de la source, l'enfermer dans le [code] [/ code] tags (sans les espaces), afin de préserver la mise en forme pour la lisibilité.

SkySmart · #4 (**permalink**) 03-18-2009

Citation:

Posté par pludi

Code:

#!/usr/local/bin/perl

open (MYFILE, 'logs_report');
open (MYF, '>data.txt');

while ($rec = <MYFILE>) {
    chomp($rec);
    @arr = split(/ /,$rec);
    if ($arr[12] !~ /OK/) {
        print $rec, "\n";
        print MYF $red, "\n";
    }
}
close (MYF);
close (MYFILE);

C'est probablement ce que vous voulez. La façon dont vous avez écrit, vous souhaitez remplacer votre donnees.txt à chaque fois que vous trouvez quelque chose, plus d'ouverture et de fermeture à maintes reprises dans une boucle peut être assez I / O coûteux.

Et la prochaine fois que vous affichez la liste ou de la source, l'enfermer dans le [code] [/ code] tags (sans les espaces), afin de préserver la mise en forme pour la lisibilité.

merci. désolé de ne pas inclure les codes. vous arrive de connaître la façon d'inclure un code dans le code qui sera ur e-mail le fichier à un ensemble d'adresses e-mail? je veux dire le fichier qui est écrit sur? votre aide ou contribution est grandement appréciée. merci

KevinADC · #5 (**permalink**) 03-18-2009

Similaire à ma réponse à votre autre fil que je pense que vous ne l'avez pas lu. Suppose même exemple que les données de fil.

Cela devrait être plus efficace et peut-être plus précis:

Code:

#!/usr/local/bin/perl
use strict;

open (MYFILE, 'logs_report') or die "$!";
open (MYF, '>data.txt') or die "$!";

while (my $rec = <MYFILE>) {
    next if ($rec =~ /STATE: OK/) {
    print MYF $rec;
}
close (MYF);
close (MYFILE);

Pludis code a une petite erreur, il a $ red où il devrait être $ rec.

SkySmart · #6 (**permalink**) 03-18-2009

Citation:

Posté par KevinADC

Similaire à ma réponse à votre autre fil que je pense que vous ne l'avez pas lu. Suppose même exemple que les données de fil.

Cela devrait être plus efficace et peut-être plus précis:

Code:

#!/usr/local/bin/perl
use strict;

open (MYFILE, 'logs_report') or die "$!";
open (MYF, '>data.txt') or die "$!";

while (my $rec = <MYFILE>) {
    next if ($rec =~ /STATE: OK/) {
    print MYF $rec;
}
close (MYF);
close (MYFILE);

Pludis code a une petite erreur, il a $ red où il devrait être $ rec.

oui je n'ai lu votre message dans l'autre fil. Quand je suis allé à l'utiliser je ne reçois aucune réponse de retour. Je pense que le problème est dans la ligne i gras.

Je vais essayer ce script, le vôtre et de voir si il affiche quelque chose. thanks a million.

KevinADC · #7 (**permalink**) 03-18-2009

Citation:

Posté par SkySmart

oui je n'ai lu votre message dans l'autre fil. Quand je suis allé à l'utiliser je ne reçois aucune réponse de retour. Je pense que le problème est dans la ligne i gras.

Je vais essayer ce script, le vôtre et de voir si il affiche quelque chose. thanks a million.

Elle ne supposera que le motif est de trouver exactement ETAT: OK, Si le schéma est différent, vous avez besoin de changer en conséquence.

Plus d'UNIX et Linux Forum Sujets Vous trouverez peut-être utile
Fil	Thread Starter	Forum	Réponses	Last Post
Perl Issue	raj001	De programmation et de script Shell	23	01-30-2009 06:12 AM
Perl Script Edition - Aide * S'il vous plaît Merci!	jroberson	De programmation et de script Shell	8	11-03-2008 03:47 AM
perl question ..	Zedex	De programmation et de script Shell	3	09-13-2008 11:22 PM
Quel est le problème avec ce script?	heprox	De programmation et de script Shell	8	11-16-2006 05:43 AM
perl regexp erreur, Je ne comprends ce qui est mal	umen	De programmation et de script Shell	4	10-19-2006 10:35 AM

Thread Tools	Recherche sur ce Thread
Voir la version imprimable Envoyer cette page	Recherche sur ce Thread: Recherche avancée
Modes d'affichage	Rate this thread
Switch to Linear Mode Mode Hybrid Switch to Threaded Mode	Rate this thread: